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This manual describes the capabilities of 
the system and the programs. Discussion 
of design assumptions and potential mod- 
ification areas are included. Record and 
file layouts are described and primary 
processing procedures specified. This 
manual is both a system desc ription and 
an installation and operations reference 
document. 

This is a reprint of SB30-0766-0 incorpo- 
rating changes released in the following 
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PROGRAM SUPPORT PERIOD 

During a specified number of months immediately following initial availability of each licensed 
Field Developed or instislled User Program, designated as the PROGRAM SUPPORT PERSOD 
the customer may submit documentation to a designated IBM location when he encounters a 
problem which h,s diagnosis indicates is caused by a licsnsed program error. During this period 
only, IBM through the program sponsor(s), will, without additional charge, respond to an error 
in the current unaltered release of the licensed program by issuing known error correction 
information to the customer reporting the problem and/or issuing corrected or notice cf 
availability of corrected code. However, IBM does not guarantee service results or represent or 
warrant that all errors will be corrected. Any onsite programming services or assistance will be 
provided at a charge. 

\ ARRANTY 

'f,?„,,';!l',^^^^^/'^LD DEVELOPED PROGRAM OR INSTALLED USER PROGRAM IS 
D!S,RIBUTED ON AN 'AS IS' BASIS WITHOUT WARRANTY OF ANY KIND EITHER 

EXPRE 58 OR IMPLIED. 



Pf^OGRAMM! JG SUPPORT PERIOD 
Programming sue sort will be available until 
Octot er 28, 1 977 

During this period, o- Iv, IBM through the program 
sponsor(s) will, withott additional charge, respond to 
an error in the cur-ent unaltered release of the 
licensed program by ssuing known error correction 
information to the cl stomer reporting the problem 
and/or issuing corrected code or notice of availability 
or corrected code. Ho vever, IBM does not guarantee 
service results or repr. sent or warrant that all errors 
will tie corrected. An\ on-site programming services 
or assistance will be pn vided at a charge. 



When the user encounters a problem which his 
diagnosis indicates is caused by a licensed program 
error, documentation mjy be submitted to: 

IBM Corporation 

Branch Office G41 ^^■ 

24445 Northwestern Highway 

Southfield, Michigan 48037 

Attn: Jack Horner 

Dale Mansberger 

After the Programming Support Period has e.xpired, 
support for this Progra n will be available at a charge 
through Systems Engineering Services. 
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Program Introduction 

The effort necessary to develop and implement a 3270 screen design under 
Communications Control Program (CCP) can be a time consuming task which 
is susceptible to the possibility of programmer error. 

The CCP Screen Design Facility was designed to ease the screen development 
task and minimize the possibility of programmer error. The Field Developed 
Program (FDP) accomplishes this by allowing the programmer to design screens 
directly on a 3270, automatically generate Display Format Facility (DFF) speci- 
fications, and give the program" 3ier the opportunity to execute the screen format 
prior to performing a Display Format generation. 

This FDP is a significant aid to increasing the productivity of those programmers 
developing new CCP applications for any System/ 3 using 3270 terminals. 
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Highlights 

THE roP IS DESiasiED TO BE E^^Y TO LEARN AND EASY TO USE. All 
functions of the FDP are initiated from a rtenu screen. In 
addition, each. iniividTjal function screen contains explanatory' 
text. 

THE FDP IS DESIGNED AND WRITTEN TO OPERATE EFFICIENTLY. 
The prograiTB aire written as transaction oriented Program RequKtst 
Under Format (PKUF) programs occii^jying a 14K CCP user task area. 
This design minimizes contention for CPU resources. 

THE FDP IS A DESIGN AID. The capability to layout the 
screen directly on a 3270 eliminates the need to use the display 
layout form. Also, the FDP assists the end-user in visualizing how 
the screen will communicate with the user during execution. 

THE FDP IS DESIGNED TO HE AN AID TO PROSRMMER PKMJCTIVITY. The 
FDP autonatically prodx^ces the necessary EFF specifications ttereby 
helping to eliminate the possibility of programmer coding error. In 
addition, the capability to review and execute the finished screen 
will allow the progranmer to catch screen esscution errors prior to 
performing the Display Format GeneratJ.on. 



THIS FDP IS A DOCUMENTATION AID. The FDP has an autGEatJ.c 
self-documenting feature which enables the programmer to maintain 
current screen documentation. In addition, the FDP contains an off- 
line batch program that creates documentation of DFF specification that 
were generated prior to obtaining the FDP . 

THE FDP AIDS IN THE MAINTENANCE OF EXISTING SCREENS. The FDP 
provides maint.enance capabilities by allowing the user to revise 
screen designs by adding, deleting and updating specifications. It per- 
forms this maintenance function by retaining the screen formats in a 
disk file. 

THE FDP SUPPORTS ALL MODELS OF THE SYSTEM/ 3 SUPPORTED BY 
CCP. The FDP runs on the System/ 3 Models 4, 8, 10, 12, and 15 
requiring a minimum user task area of 14K. 

THE FDP CAN BE USED WITH SCREENS CREATED PRIOR TO THE 
FDP INSTALLLATION. A program is provided that allows the user 
to place DFF Specifications, contained on Cards, Diskette, on disk 
data file to the FORMAT file used hv the FDP . 
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GENERAL SYSTEMS DESCRIPTION 



This system is designed to assist the programmer in the design, creation, 
and maintenance of screen formats used with programs executing under the 
Communications Control Program (CCP) support for System/ 3. Since no 
programs remain resident in memory , the available resources can be shared 
while application CCP programs arq executing. A minimum user task area of 
14K bytes is required in addition to the DFF Control Routine overhead. 

Fianctions provided: 
On-line: 

Screen Creation 
^~^ Screen Modification 

Screen Deletion 
Screen Recall/ Display 
Output DFF Specifications 
Print Image of Screen Entry 

Assign User Defined Names to DFF Specification Fields 
Output RPG Input/Output Specifications for Screens 
Screen Execution 

V Off-line: 

^ Create FORMAT File 

Reorganize FORMAT File . • 

Screen Documentation 

Load Existing DFF Specifications 
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DETAILED SYSTEMS DESCRIPTIO^ 



This screen creation aid was designed to ease the prDgrammer's effort in 
designing, creating, maintaining and documentiiig 32/0 screen formats for 
use with the Communications Control Program (CCP) support on System/ 3. 
Programs are provided to allow complete free form creation of 3270 formatted 
screens with the exception that line 1 pos 1-10 and pos 80 of each line is 
unusable. 

In developing this aid it was necessary to deter: nine how much function should 
be included. Too many options tend to make an aid too complicated, while too 
few will decrease its benefit to the user. So with this trade-off in mind, the 
major program functions were coded into tables where possible. This then 
allows the user to either Increase or decrease the function or options easily 
by changing the tables . 

One permanent disk file (FORMAT) is the only requirement for executing this 
aid. Once a screen is created, it will be contained in the FORMAT file and 
any further activity will access its image from this file. When a screen is 
created the FDP assigns a unique sequential ID to that screen . This is done 
to allow the operator access to a particular screen in the event that mult-ple 
screens are created with the same Screen Name. 

For the Model 4 user or at the option of the person installing this sytem, two 
additional disk files will be used. The section 'Installing the System' has more 
ifnormation on these files . 



1.4 



1 



SCREEN CREATION 



Selecting this option will return a blank screen for use in screen design and 
creation. The operator has complete freedom of entry with the exception of 
line 1, pes 1-10, and pos 80 of all screen lines. The operator codes each field 
displayed based on type and function. The specific codes to be entered are 
contained in Table 1. The programs will interrogate the input from each line 
to determine what type of entry was made. Any characters entered that are jiot 
part of a generated literal and not a defined field specification type will be 
ignored (i.e., 1111 was entered on line, this would be ignored in creating 
any DFF Field Specifications . ) . The same is true in recognizing any non-defined 
character within a Non-Generated Field; the field will automatically be terminated 
by this character; (NNNNBAAA) would be decoded as a 4 pos numeric input 
field followed by a 3 pos alphabetic input field. 

The operator has the option of duplicating a previous line by keying '*DUP*' 
in the first five positions for a line. The duplication can then be propagated 
by keying the same '*DUP*' on each suceeding line. 

All fields with input characteristics will be generated with a default of Auto- 
skip-Yes. If the operator desires Autoskip-No option for a field, the field 
should be terminated with a concatonation sign (I) rather than the normal 
termination. Normal termination for Input only fields or O/I Non-Generated 
fields is a blank ( ) ,. Generated fields will have a termination character as 
defined in Table 1. 



TABLE 1 







NORM-INT 


HIGH- I NT 


NQN-OISP 


MPUT FIELDS: 


ALPHAMERIC 


AAAA 


CCCC 


■^ ^ & a 




NUMERIC 


NNNN 


DOOD 


//// 


OUTPUT FIELDS^ 


EXEC ALPHA 


♦ *«* 


#### 


a)3a)S 




GEN ALPHA 


< > 


> < 


? ? 


O/I FIELDS; 


eX£C ALPHA 


xxxx 


YYYY 


nil 




EXEC NUM 


0000 


9999 






GEN ALPHA 


{ ) 


) ( 


« • 




GEN NUM 


s = 


% % 





1.5 



PRINT SCREEN FORMAT AND/OR OUTPUT DFF SPECIFICATIONS 

With this option the operator can, produce the DFF Specification records in a 
format ready to input to the DFF generator. The punched output includes the 
OGL for generation, specification records, and (/*) card. An image of the screen 
is also printed on the System Printer. If desired the DFF output can be placed 
on disk and the $MAINT utility executed to catalog the screen to the source 
library . 



SCREEN DISPLAY 

This option allows the operator to select from two options: 

I Name listing - a listing will be displayed of ail active 

Screen Names and ID's. It is expected that this would 
be used to determine what screens are active or determine 
the specific names chosen or ID's assigned. 

Screen Display - The selected screen will be displayed 
in the exact forma: as entered by the operator. 



SCREEN MODIFICATION 

With this option the operator is prompted to enter the selected Screen Name. 
The requested Screen is located on the FORMAT file and displayed to the 
operator on the 3270. Any modifications or corrections can then be entered 
and when the Enter key is pressed - the same functions are performed as 
described under screen creation. Following the completion of this option, 
both the original and new versions of the screen are active on the FORMAT 
file. 



SCREEN DELETION 

This option allows the operator to delate an active screen from the FORMAT 
file. This would be necessary following the Modify option to assure the old 
screen is no longer present. Obsolete or no longer desired screens should 
be deleted. As a means of providing additional safeguard against deleting an 
incorrect screen, the operator must enter both the Screen Name and ID to 
complete this function, An unknown ID can be obtained by using the Screen 
Display option. 
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ASSIGN NAMES TO D F F INPUT RECORD S 

This option is used to assign user specified names to the generated DFF 
Specifications. The initial position of the Cursor can also be modified by 
this option. 



OUTPUT RPG INPUT S OUTPUT SPECI ICATI0N 3 

This option is used to produce the RP 1 records that would relate to the 
generated screens. The Control Card File Specifications for the CRT, 
Extension Specification for Parameter /^.rray, Input and Output Specifications, 
and the Parameter Array are produced. Separate screens can be selected, if 
desired for the Input and Output Specifications . The intent is not to produce 
a complete program, but rather to aid the programmer with the routine coding 
tliat is normally required. 



EXECUTE OPTION 

This option allow s^ the operator to select a Screen to be displayed on the GET 
he is using or at Ms option display on another CRT. The format of the display 
is the same as if output from the execvtion of an application program. This will 
iillow the testing of screen options like numer c or alpha fields, intensity of field 
(iispiays , or autoskip options . Using '■ lis opt on to a CRT other than the entry 
device will also allow the testing of ov alay s :reen formats . 



DOCUMENTATION AID ■ 

A program is provided for the off-line documentation of DFF Specifications. 
This program will print the literal (Generated) fields as defined. The 
program output fields will appear as asterisks (*) . Fields containing input 
to the program will overprint with periods ( . . 



LOAD EXIST I NG DFF S PECIFICATIONS 

Existing DFF Specifications can be loaded to 1 le FORMAT disk file used by 
this FDP. The Model 4 user will probably hi ve to use a System/ 3 Model 8 
or larger of another location to get his DFF S )urGe statements from the Source 
Library to card, diskette, or disk data file m ;dia. 



1.7 



INSTALLING THE SYSTEM 
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INTRODUCTION 



This section will provide the user with the necessary instructions for installing 
the Screen Design Facility and is subdividied into four parts. They are: 

1. Installation Checklist 

2. Installation Instructions 

3. File Creation and Sizing 

4. Sample problem. • , . . - ,^: . 

Each one of these parts should be studied and their instructions followed to 
insure proper installation of the Screen Design Facility . ■' ■ . 
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INSTALLATION GHECKIEST 

This part of Installing the System is provided to give the user a list of 
tasks to be completed in order to successfully install the Screen Design 
Facility. These tasks ire: 



TASKS 

Copy object code for the programs 
and screens {Model 4 only) or compile 
the source code for the programs and 
screens (Models B, 10, 12 8 15). 

Create the FORMAT File. 



INSTRUCTIONS SECTIONS 



Installation Instructions 



File Creations 5 Sizing 
Appendix A or B 



Execute appropriate Assignment Set 
(SETF) . 



Installation Instructions 



Familiarize yourself with the section 
Operating the System. 



Operating the System 



Familiarize yourself with the function 
of each option on the 'Menu' (initial 
screen) by reading the Program 
Descriptions . 



Program Descriptions 



6. Perform the Sample Problem, 



Sample Problem. 
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INSTALLATION INSTRUCTIONS 



The Screen Design Facility makes the following assumptions: 

A . The Facility assumes the procedure to load the Display Format 
Generation Routine (DFGR) resides on unit R2 and that the formats 
should be compiled on unit R2 . 

To change this, the user must modify the OCL Array content in 
programs F0RSC2 and FORSET. ' 

B. The Facility will provide three RFC U File comment records when 
program F0RSC7 is executed. If the user wants more or less 
RPG 11 File comment records, a modificatibn to RPG 11 Calculation 
Specification (0144) is necessary. 

C. The Facility has two programs that use unit record devices (F0RSC5 

S F0RC7) : therefore a CCP version of the- RPG- 11 Gempiler (including) 
special unit record modules for CCP) must be used for the Models 4, 
8, 10, 12 when compiling these programs. 

D. The Facility assumes a 3270 configuration with a 3271 Control Unit 
and a 328X Printer attached. A 328X Printer is not required for the 
installation or operation of this system, but can be used if available. 
If your system is configured with a 3275 Control Unit/CRT and 3284 
Printer you must make the modifications illustrated in APPENDIX-G 
titled 3275/3284. 

The facility will be distributed from the Program Information Division 
(PID) by three methods: 

1. Disk - 5444 (Model 4 only) 

2. Diskette 

3. Cards - 80 or 96 column 

Procedure are cataloged for the Model 4 User and contained with the distribuiton 
disk. All other Users should refer to Appendix B and the Program Descriptions 
for the creation of required OCL. 
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The contents of these media aie: 
DISK DISTRIBUTION 

1 All object code for the programs and screens for the iModel 4 
(no compiles required) . 

2 All source code for the programs and screens for the Model 4. 

3 Assignment set for the Model 4 (source library entry 'SETF') . 
, See APPENDIX-A for a listing of this entry. 

The OCL necessary to copy ths object code from the distribution pack to the 
unit where the Communications Control Program (CCP) expects them to reside 
can be found in APPENDIX-A. 

The procedures necessary to execute the Communications Control Program (CCP) , 
to copy the RPG II Specijications from file to the Source Library, and to copy 
the Display Format Facility (DFF) Specifications from file to the Source Library 
are provided in the procedure library of the distribution pack (see APPENDIX-A) . 

DISKETTE DISTRIBUTION: 

1. Label 1 (FOR. RPG) - contains all the source programs with a // CALL RPG. 
// COMPILE OBJECT, and a // RUN record. The impiementor must modify 
the // COMPILE OBJECT record and remove the LINKADD parameter if the 
System/ 3 is other than a Model 15. 

2. Label 2 (FOR. DFF) - contains all the source for screens used by the 

, Screen Design Facility and // CALL DFGR 5 // RUN records. The Screen 
Header Record (the C Specification) directs to the generated object to 
unit R2. 

3. Label 3 (SETF.M15) - contains the assignment set (SETF) for the Model 
15 and necessary OCL to execute the Assignment Set Generator (SCCPAS) . 
(See APPENDIX-B) . 

4. Label 4 (SETF. MX?!:) - contains the assignment set (SETF) for the Models 
8, 10, 12 and necessary OCL to execute the Assignment Set Generator 

; ($CCPAS) . (See APPENDIX-B) . 

5. Label 5 (F0RXX7) - contains an alternate version of FORSC7 for use 
with disk output of RPG Specification records. -Replace the standard 
version of F0RSC7 with this source program only if you want disk 
output. The name in the RPG Header record should be changed to 
F0RSC7 before compiling this program. 
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^ CARD DISTRIBUTION 80 or 96 column cards will contain the same as the 

diskette distribution. 



All source code for programs and screens must be compiled for Models 8, 10, 
12, 8 15 and placed on the unit where the Commimication Control Program (CCP) 
expects them to reside. Before compiling, the implementor must decide if ftte 
Device Names are correct for their system and if the generated screens should 
reside on unit R2, 

The source code distributed by PID on diskette and cards will have 'DISK45' as 
the disk device name and 'MFCU1/MFCU2 as the read/punch device name. If 
your system requires 'DISK' as the disk device name, you must replace liie RPG II 
File Specifications records illustrated in APPENDIX-C, titled DISK45 - DISK. If 

your system requires an. input or output device other than MFGU1/MFGU2, the 

iuplementor must r^lace the KPG II Specifications records illustrated in APPa©IX^ 
titled, MFCU-DISK or DISK45 and MFCU-DISKETTE. 
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FILE CREATION AND SIZING 



File creation for the Screen Design Facility consists of creating the 
master file called 'FORMAT' and the work file called 'FORMATWK'. 
The master file 'FORMAT' must be created initially since all Display 
Format Facility (OFF) Specification records are placed there. The 
work file 'FORMATWK' is created only when the master file J FORMAT' 
is to be reorganized. 'FORMAT S FORMATWK' are created by programs 
'FORLOD 5 FORORl' respectively. Refer to the Program Descriptions 
Section for sizing and APPENDIX A or B for the OGL to create these files, 



Two additional files are required only by the Model 4 User or any User 
selecting disk output for the DFF and RPG Specifications. The file DFFCARDS 
is used to contain the card image of the DFF Specification records . The file 
RPGCARDS is used to contain the card image of the RPG Specification records. 
Each of these files is a Consecutive-Add file used by program F0RSC5 and 
F0RSG7 respectively. See Appendix A or B for the required OGL to copy the 
Specifications to the Source Library. The size of these files depend on the 
size and number of Specifications to be output during the execution of CCP . 
It is suggested that the User initially allocate 1000 records to each file. 

The file DFFCARDS can also be used for input to the program FORPRT. 

The files DFFCARDS and RPGCARDS should be deleted following their copy 
to the Source Library and/or the execution of FORPRT . 
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SAMPLE PROBLEM 

This section will take you through most of the options available with this aid. 

It is suggested that this sample problem be followed step by step prior to preceding 

with the installation and the use of this system. 

1. Perform the steps outlined in the section 'Installing the System'. 

2. Thoroughly review the section 'Operating the System'. 

3. Initiate the procedure FORCGP (Model 4) to bring up GCP. 
Select Assignment Set: F. 

4. Sign on your terminal. 

5. Enter the word FORMAT in the first six positions of screen. 



The program FORPRT is not contained as part of the sample problem. This is 
an off-line, non-CCP program, provided to assist m dacumentingBFF specification 
records. Review its function and execute as required. All of the screen printouts 
contained in this section were produced with the aid of this program. 



Shutdown GCP and proceed with the following steps to complete the sample problem. 
Select the condition below that applies: 

A. Card or Diskette output of DFF Specifications and RPG Input/Output 
SpecificEtions , 

1. Generate the screen ($ZF0R2} by placing the DFF Specifications 
obtained from Option 2 into the System Reader. 

2. Review or list the RPG Input/Output Specifications obtained from 
Option 7. 

B. Disk output of DFF Specifications and RPG Input/Output Specifications. 

1. Call the procedure FORDFF to catalog the DFF Specifications 
to Source Library. 

2. Call the procedure FORRPG to catalog the RPG Specificatior.s 
to Source Library using the selected name of PROGOl. 

3. Generate the screen ($ZTST2) from Soure Library. 

4. Copy the Source Library entry PROGOl to Printer using 
$MAINT and verify its content. 
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SCREEN NAME~$ZFORX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx. 

'^ SCREEN OPTIONS 

X SELECT THE DESIRED OPTION BY PLACING AN «X« IH FRONT OF SELECTION-- 

X 2 I. CREATE A MEW SCREEN FORMAT- ' ^ 

^ NORM~INT HIGH-INT NON-DISP 

X INPUT FIELDS! ALPHAMERIC AAAA CCCC .,.! 

^ NUMERIC NN^N DDOD //// 

X OUTPUT FIELDS: EXEC ALPHA *^** #i^#^ 333^ 

^ GEN ALPHA < > > < ? ? 

X O/I FIELDS^ EXEC ALPHA XXXX YYYY ZZZZ 

^ EXEC NUM 0000 9999 

^ GEN ALPHA CI ) I it 

^ GEN NUM ~ ~ t Z 

X 2 2, PRINT SCREEN FORMAT ANO/OR OUTPUT OFF INPUT RECORDS- 

X ? 3, DISPLAY A SCREEN OR OBTAIN LIST OF ACTIVE FORMATS- ^ 

X ? ^. MODIFY EXISTING FORMAT- ** THE REVISED SCREEN WILL NOT BE DELETED 

' ^ AUTOMATICALLY-- USE OPTION 5 X 

X ? 5» DELETION OF AN ACTIVE FORMAT- 

X ? 6. ASSIGN NAHES T3 OFF f-^PUT RECORD FIELDS- 

X 2 7, OUTPUT RPG INPUT £ OUTPUT SPECS- 

X 2 8. EXECUTE SCREE^J— ^^ 

^ ** PPl WILL COPY THIS SCREEN TO 328X ** _-.,X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 1 



Select option No. 1 from the menu screen. 
Press enter key. 
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.EEM ><AHE-$ZTSll 
XXXXXXXXXXXXXXXXXXXXXXXXXX)(XXXXXXXX)(XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X X 

X ^ X 

X <:USTOHER IfiQUIRY> X 

X X 

X X 

K . X 

X <;UST >^4ME-----> ***^****#4!***#**^*** ,^ • . , , v^ 

X <CUST ADDRESS— > *«***«*********;##**^ X 

K <:i TY/ST4TE~ — -> ^*****»«»4t«**« ** " X 

K <IIP CODE—— -- -> ***^^ X 

X X 

< <SALESMAN— — — > 4=*#*^!^****«*** X 
X <.:^EDIT LIMIT--> ***=§=***«* ' X 
K X 
X^ X 
K X 
« ' X 
X X 
X •• ■ - X 
K - - X 
)C X 

< X 
« X 

X 
,.XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



y 



Make the above entries on the blank screen that is displayed. 
Press enter key. 



The entries from this screen are interrogated by program F0RSC2 as tie 
first step of the screen creation. The screen contained on the followin;; page 
will then be displayed to complete this option. 
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SCREEN MAHE-SZF3^2 "^ 

XXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXa. 

X 

X S:^EE>i CQMPLETIOM 

X 

X 

X 1 WILL THIS SCREE>J IMITIATE A P^UF Pf^OG^AM? 
X IP SDs, ilVt THE PROGRAM NAME— a.^«-^ 
X 

X 2 E\!TE=l SIX POSITION! M&ME OF SCREEN— $z^STl 

X 3 SHOULD THE SCJ^EEN BE ERASED BEFORE 

X QJTPaTTiNG THIS SCREEN? Y/H— y 

X 

X 

X - 

X ^ 

^ ^F you ARE COMPLETLMG A MODIFY SCR5EM FUNICTIOM OR WAMT MA.^ES F^OH ; 

X 4^3THER SCREEN USED WITH THIS SCREEN-- 

^ E-^TER THE SCREEN MAME £ ID fOPTIOMALI BELD^ i 

X SCREEN" „«»... ID- ! 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ' 



Enter $ZTST1 for the screen name. 
Press enter key . 

The screen creation function will be completed and the menu screen displayed. 
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lEEN MAME-$ZFOR^ 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXX 

X X 

X X 

X ** DISPLAY FUNCTION ^^ X 

> X 

> X 

> SELECT THE »ID« NUMBER AND SCREEN NAME THAT YOU X 
X WANT TO DISPLAY^ IF BOTH DON'T MATCH FOR A SCREEN X 

% CONTAINED ON THE WORK FILEf A MESSAGE WILL BE . ' , - X 

> DISPLAYED SAYIMG THAT THE SCREEN WAS NOT FOUNO» X 

> IF •I0» ISN'T EMTEREDf THE FIRST NAME MATCH WILL DISPLAY. X 

> SCREEM & ID BLAMK i^ILL GiVi SCREEN MAME LISTIi^G X 
» X 
X SCREEN- $JTST1 X 
X ■ X 
X^ 10 HO.- « X 
5 ■ X 
X X 
X X 
X X 
X X 
X X 
X X 
X ■ , X 

. X 
.^XXXXXXXXXXXXXXXXKXMXXXXXXXXXXXXM>XXXXXX)XXXXXXXXXXXXXXXXXXXXXMXKXXXXXXKXXXXXXXXX 
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Select option 3 on the menu scree i (not shown) 

Press enter key. 

Enter $ZTST1 for screen lame. 

Press enter key. 
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SCREEN vjAME-SZTSTi -, 

XXXXXXXXXXX>(XXXXXXXXXXXXXXXXXXXXXXXXXX<XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX„ 

X 

^ <C;USTOMER I,VQUIRy> 
X 

X 

X 

X <:UST MAME > ****«****««********« ^ 

X <:;uST '\DDR£SS--> *#*^**«************* V 

X <cirY/srAT£-~— > **«*!^«j^**#**«* ;** 

X <:ZiP C3DE-- > ^*«** !^ 

X ^ 

X 

X <SALESM4M---~--> ********«:***** „ 

X <CREDir LI'HIT~-> ********* ^ 

X ^ 

X '' 

X ■ _ ^ 

X ^ 

X ^ 

X , X 

X ■ ■ ^ 

X ■ ^ '^ 

X ^ 

X - ■ , X 

X ■ -^ 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



Review the displciyed screen. It should be identical to the one 
previously created. 



Press enter key to return to menu screen. 
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EEM Mft^E-SZFDR? 

iXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXX 

X 

X 

** MODIFY FUNCTION ** X 

X 
X 
SELECT THE «ID» DUMBER AMD SCREEN H&ME THAT YOU X 

^ WAMT TO MDDIFY. IF BOTH OQH^J MATCH FOR A SCREENJ X 

CD^JT^^I^iEO 3H THE WORK FILE* A MESSAGE WILL BE ■ '~ X 

DISPLAYED SAYING THAT THE" SCREEN WAS MOT FOU^iD ' X 

IF 'ID' ISH»T ENTERED, THE FIRST NAME MATCH WILL DISPLAY X 

X 

* X 

SCREEN- $ZTST1 ^ 

X 
^ ID -MO.- ., X 

X 

X 
X 
X 
X 
X 
X 
X 
X 
yXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



Select option 4 from the menu screen (not shown) . 
Press enter key. 

Enter $ZTST1 for screen name. 



Press enter key . 



) 
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SCREEN --lAME-SZTSTi 

XXXKXXXXXXXX)(KXXXXXX)CXXXXXXXXXXXXXXXXXXXXXX,;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ■ 
X 

JJ <:UST0M6R IMQUIRY> ) 

X 

X 

X <3'JST \J4M£~- ■-> ******************** 

X <:jst address— •> ****=********««««*«*♦ :^ 

X <3ITY/ST4T£ — — -> **«**!!*****«** ** '' 

X <ZIP CaOE-— — > ***** 

X < 

X <S4L£S^A,N--- — -> ************** ^ 

X <:REoir LiMiT»"-> ********* ^ 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX<XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX, '^ 



The selected screen, $ZTST1. is retrieved and displayed for operator modifications. 
For this sample problem one literal and one input field is added and all execution 
output fields are changed to output/input type fields. The desired changes are 
shown on the following page . 
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tE\ MAME-$ZT5T2 

<XXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X 



•^ <CUSTOMER lH^UlfiY> x 

"" X 

<EMTER P'ASSWORD~> «»«.»<, X 

X 
<C"JSr NAME--- — -> YYYYYYYYYYYYYYYyVYYY X 

<;:UST ADDRESS— > XXXXXXXXXXXXXXXX> XXX X 

<;:irY/STAFE-«— > xxxxxxxxxxxxxx ; X x 

<IIP C3DE-— — •-> 00000 ■ X 

X 
<SALPSHA^4 — — — > XXXXXXXXXXXXXX X 

<:;REDir Lmii— > ooooooooo x 

, - , X 

X 

■ . ■ . ■ X 

X 
X 
X 
X 
X 
X 
X 
X 
XXXXXXXa:XXXKXXXXXXXXXXXXXXXXXXXXXXX),XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



r 



Make the laodifiijations so your screen looks like the one above. 
Press enter key . ^ 



The entries from this screen are inlerrogated by program F0RSC2 as the 
first step of the screen modification . The screen contained on the following 
page will then b3 displayed to complete tMs option. 



) 



2.15 



SCRE£:^J NAME-$ZFDR2 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx.xxxxxxxxxxxx 

X '- 

^ SCREEM COMPLETION J 

X ^ 

X ' 

X i WILL THIS SCREEN INITIATE & PRUP Pi^OSRAM? 

X IF SO. GIVE THE PROGRAM NAME™- ^^^^^^ I 

X ^ 

X 2 5MTER SIX POSITION NAME OF SCREEN— $2TST2 a 

X 3 SHOULD THE SCREEN BE ERASED BEFORE I 

^ OUTPUTTING THIS SCREEN? Y/N— ^ 

X ^ 

X X 

X - X 

X _ ^ 

J f,^,^°l:^/^^ COMPLETING A MODIFY SCREEN FUNCTION CR WANT NAMES FROM x 

X ANOTHtR SCREEN USED WITH THIS SCREEN— Z 

X ENTER THE SCREEN NAME S ID (OPTIONAL) BELOW y 

X '^ 

^ SCREEN- ,,,.., ID- X 

X X 

X X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. 



Enter $ZTST2 for the screen name. 
Press enter key. 

The screen modification will be completed and the menu screen displayed 
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.AXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 

X 
** DISPLAY FUNCTION ^* ' X 

X 
X 
SELECT THE 'ID* MUMBER AND SCREEN NAME THAT YOU X 

WANT TO DISPLAY. IF BOTH DO'^'T MATCH FOR A SCREEN X 

C3NTAINED :3N THE WORK FILE, A MESSAGE WILL BE X 

DISPLAYED SAYING THAT THS SCREEN WAS NiOT FOUND. ■ X 

IF «ID« ISM'T EMTE^ED^ THE FIRST NAME MATCH WILL DISPLAY. X 

SCREEN & ID BLANK WILL GIVE SCREEN ^A^E LISTIN5 X 

X 
SCREEN- .,,«.. - X 

X 
ID N0«- «, X 

X 

'- ' • - X 

% 

X 

- X 

X 

' X 

f X 

X 

\XXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



)' 



Select option 3 on the menu screen (not shown) . 
Press enter kay. 

The above screen will be displayed, leave the requested 
fields blank. 

Press enter key . 

Review the list of screen names displayed. Verify that $ZTST1 and 
$ZTST2 are present. 

Press enter key to return to menu screen. 
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£X-:-:uTE SCREEN OPTIONS 

ScLECT S3^vEE-xl \A^E 

3 5 L. = C T S C ^ L £ >j ID 

SELECT TE-^iMI'^lAL WHERE DISPLAYED 



$ZTST2 

171127 



**CEFAJLT TE'<.MIMAL IS THIS DEVICE** 



SC-?EE\ .A'-^E-SZF jr<ri 

xxxxxaxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxkxxxa^xxxxxx,, J 

K X 

X * 

X 

X 
X 
X 
X 

X 
X 
X 

K 

< 

K 

K 
K 

K ■ .: ■ 

X - ■ . 

K 

K . ■ ■ . ^ 

X 

X 
p(XXXXXXXx.XXXAXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

Select Option 8 on Menu Screen (not shown) . 

Press Eater Key . 

Enter $ZTST2 for the Screen Name. Leave the other fields with no entries. 

Press Enter Key. 

Verify the content of the screen displayed 

Password Entry should be non-display. 

Alpha entries in the zip code and credit limit fields should be 

prevented . 

Name field should be in h3 gh intensity . 

Press Clear Key. 

Enter FORMAT in first six positions of screen to obtain Menu Screen. 

Press Enter Key. 



X 

X 
X 
A 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

^x 

t. 

X 
X 

x 

X 

X 
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ixXXXXKXXXSXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) xxxx 
$ZTST2 9 3 .X 

SCREENJ ID * X 

X 

VOU H4VE SELECTED THE OPTION OF CHANGING FIELD X 

NAMES CQSITAIMED WITHl^l THE GENERATED FORMAT— X 

SELECT 4 SCREEN MAME AND ID {OPTIONAL) ABOVE X 

AND THE FOLLOi^ING THREE SCREENS WILL BE PRESENTED- X 

X 
1» IMPUT £ 0/1 FIELDS — X 

2. OUTPUT NON-GENERATED FIELDS— X 

3. 3UTPUT GENERATED FIELDS— ' X 

X 
ENTER FIELD NAME CHA'^Gt S AS DESIRED OR IF DESIRED X 

PFi KEY «IILL TERMINATE THIS OPTION AND RETURN MENU X I 

X : 

,'^ X ; 

X ! 
^ ^ X 

X 
X 
X 
X 
X 
X 

■XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



; 



Select option 6 on menu screen (not shown) 

Press enter key. 

Enter $ZTST2 for screen name. 

Press enter key. 



) 
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XXXXXXXXKKKXXXXXXXKXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXT ) 

X 

X INJ-»UT FIELDS- E^T = R 4MY FIELD NAME CHANGES DESIRED AND PRESS EMTER. 

X FOR SJUMErUC FIELDS THE MO OF DECIMAL P0SITI3-^S CAN BE X 

^ DEFINED By ENTERING THE VALUE. TO CHANGE A CURSOR Pa~ 

X SITI3Nt THE FIELD SELECTED MUST 8t OME DISPLA¥ED« 

^ POS LEfM FYP MA.ME DEC POS L6M TYP NAME DEC PCS LE-N TYP MAME DEC X 

X J5-37 06 !- LM0537 07~29 23 UE L.M0729 08-29 20 UE LM0329 X 

X D9-29 14 JE LM0929 09-^5 02 UE LM0945 10-29 05 UE L,\iD29 k • 

X 12-29 1^ UE L'^1229 13-29 09 UE LN1329 X 

X 

- X 

X ^ 

X 

X " 

' X 

X -^ 

X 
X 

^-' X 

^ . . CURSOR POSITIOM- L^la?29 X 

J ^ 

X ^ 

X ^ 

XXXXXXXXXXXXXXXXXXXXXX^.XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXA 

■ ■ ■■ ■ ) 



The above .screen will display showing the generated names for the fields 
contained on screen $ZTST2. Any fields that are numeric will display the 
decimal positions and also allow for operator changes . Proceed to the next 
page and make the entries shown. 

NotesThe field names may not appear exactly cS shown above. These names 
were generated based on the starting pos tion of the fields. 
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. lEEN SJAME- 
yXXXXXXXXXXXKXXXXXXXXXKKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X X 

X IMPUIT FIELDS- EMTE^ ANY FIELD NAME CHANGES DESIRED AND PRESS ENTER, X 

X FOR NUMERIC FIELDS THE NO OF DECIMAL POSITIONS CAN 8£ X 

^ DEFIMED BY ENTERI.^3 THE ¥ALUE« TO CHANGE A CURSOR PO- X 

X SITI3N, THE FIELD SELECTED MUST BE 3\E DISPLAYED. X 

X X 

X POS LEN TYP NAME DEC POS LEM TYP MAME DEC POS LEN TYP MAME DEC X 

X 05-37 06 I» PASW^D 07-29 20 UE NAME 08-29 20 UE AODR X 

X 09-29 14 UE CITY 09-45 02 UE STATE 10-29 05 UE ZIP X 

X 12-29 14 UE SLSH^J 13-29 09 UE CRLIM 2 X 

X X 

X ' X 

X ' . • ■ x 

X ■ X 

x^ .. X 

X ■ , ' X 

X X 

X X 

X CURSOR POSITION- PASWRD X 

X X 

X X 

X . X 

X 
, XXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

; 

Enter the field name changes shown above. 
Change the decimal positions for 'CRLIM' to 2. 
Enter 'PASWRD' for cursor position. 
^ . Press enter key. 
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SCREEN ^44ME- '-^ 
XXXXXXXKXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX?(XXXXXXXXXXXXXXXXXXXXXXXA; ") 

X ^' 

X QJTPJT FIELDS- EMTE^ AMY FIELD ^AMg CHANGES DSSUED An^O P^ESS EMTE^ X 

X E^T5R!M3 A NAME FOR ^U^ TYPE FIELD ^ILL ASSIGN A '2^10 X 

^ f^AMt. m «*« F3LL3WIMG NAME INDICATES THIS PRIOR ASSIG^J- X 

^ MEMT. TO DELETE E^TE'^ >* « IN THE MAHE FI5L0 



X 

* X 

X ?3S LE^ TYP ^^AME 2^JD POS LEN TVP NAME 2M0 P3S LE^ TYP \!AME 2M0 X 
X 37-29 20 JE MAME 08-29 20 UE AODR 09-29 14 UE CITY X 

X 09-^5 02 UE STATE 10-29 D5 UE ZIP 12-23 14 UE SLS^N X 

X 13-29 09 JE CRin 
X 

X . 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx^ 

Following the display of input fields: 

The above screen will be displayed sltowing the output fields. Notice 
tliat all fields are output/input and have acquired the names entered on the 
prior screen. Different or '2nd Names' will be entered for all the fields 

displayed. Go to the next page and uake the field name entries shown. 



X 

X 
X 
X 

X 
X 

x 

X 

X 
X 
X 
X 
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> 



; 



XXXXKXXKXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X 

X 

QUTPJT FIELDS- EMTc^ ANY FIELD NAME CHANGES DESIRED AND PRESS EMTERe X 

EMTERIMG A MAME FOR ' U » TYPE FIELD WILL ASSIG:^ A '2^0 X 

NJA^E. A.-^ '*• FOLLOWINS NAME INDICATES THIS PRIOR ASSIGN- X 

ME."^T. TO DELETE EMTER " ^ « IM THE NAME FIELD X 

X 
PDS LEN TYP HME Z'^D POS LEN TYP NiAME 2ND P3S LEN TYP NAME ZHD X 

07-29 20 UE •^AME2 08-29 20 UE A00R2 09-29 14 U£ CITY2 X 

09-<t5 02 UE STATE2 10-29 05 UE ZIP2 12-29 i'* UE SLSMN2 X 

13-29 09 UE CRLn2 X 

X 
X 
X 
X 
X 
"^ X 

X 
X 
X 
X 
X 
X 
X 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 



Enter the above field names as shown. 



Press enter key , 
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SCREE.M M4ME- \ 

XXXXXXXXKXXXKKXKXXXKXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXX' ' 

X ' 

X 

X 3EM FIELDS-— EMTE^ AMY FIELD NAME CHANGES DESIRED A^^D PRESS E^TER. 

X ALL FIfcLDS OF THIS TYPE WERE CREATEO WITH AN »F« GE.\ 

X CODE* C-!ANSIN5 AN NAME WILL ALSO CHAf^GE THIS TO 'G« TYPE 

X *ALL FIELDS DISPLAYED HAVE HO IHPUl OR OUTPUT TO PROGRAM* 

X 

X P3S LE^i TiP NAME PQS LEM TVP h^AME PCS LEN TYP NAME 

X 03-27 16 OF 1^^0327 05»13 15 OF LM0513 07-10 l^ OF 1^80710 

X 38-13 14 OF L'^OSIO 09-10 14. OF LM0910 10-10 14 OF LNIOIO 

X 12-10 14 OF LNJ1210 13-10 14 OF LN1310 

X 

X X 

X X 

X X 

X ■ ^ X 

X ^^k 

X ^ ■ ' X 

X ^ ■ X 

X ■ - ■ 

X 
X 

X _ . 

X 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXX 



Following the display of output fields: 

The above screen will be displayed showing the output only generated 

fields . There are no changes to these names for the sample problem . 

Press enter key . 

The rneou screen will display . 



) 



) 



2,24 



IxxxxxxxxKxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X 

X 

THIS PROS^AM WILL DUTPUT YOUR OFF FORMAT RECORDS X 

AND PRINT THE SCREEN PICTURE QH THE SYSTEM P^IMTER X 

X 

X 

$ZTST2 X 

ENTER THE SCREE*^ NAME SELECTION- $12222 ID- «. X 

IF LEFT 3LA.NKt ALL FORMATS WILL BE SELECTED fOPTIOMALI X 

X 

" ' X 

E'^JTER A^'^.'X' TD PREVENT FORMAT FROM PRINTING 2 X 

X 
EMTER AN »X' TO PREVENT FORMAT CARDS FROM PUNCHING ? X 

X 
""" .X 

X 
X 
X 
X 
X 
X 
X 
X 
.;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

Select option 2 on menu screen (not shown) . 

Press enter key . 

Enter $ZTST2 for the screen name selection. 

Press enter key . 

Assure that the system printer and output device for the DFF specifications 
is available and ready. If the DFF specifications is to card or diskette, 
save for later generation. If this output is to disk, the $MAINT procedure, 
R3RDFF, Should te ^ecuted later with CTP shutdcwi and then tte screen 
general^ dixectl.y frcm the scxirce libr'ary. 

The menu screen will be displayed following tht: eompietion of this option. 
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XXXXXXXXXXXXXXXXXXXXXX)(X<XXXXXXX)(XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'-'XXXXXXXXXXX/ I 
X 

X ' 

X ^ P S 11 SPECIFICATIONS OPTION 

^ > 

X X - 

X SPECIFY THE SCREEM MAME THAT YOU WANT ^PUT SPfcCS. X 

< SCREE.N "^AME- $Z'IST2 X 
^ SC-^EEN 10- ,e $ZTST2 x 

< X ~ 
X IF YOLk WA>iT COMMENT CALCULATION s^ECOriDS nSEKTEO, X 

X SPECIFY THE ^JMBcR OfcSIRcD— JO X 

^ X 

< SPECIFY THE SCREEN MAME THAT YQj i«!4MT OUTPUT SPECS. X 
^ SCREcNJ "^JAME- $ZTar2 X 

< SCREEN ID- ., $ZTST2 ^ 
K ' ' - 

< SPECIFY THE PROGRAM NAME FOR THESE SPECS. X 
<. 3RP3RAM NAME- »««»». X 

I PROGOl ' 

^ X 

i - X 

< ~" 

<XXXXa.aXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX, X 

Select Option 7 ob Menu Screen (not shown) . 

Press Enter Key . 

Enter $ZTST2 for both screen names select five (5) comment calculations. 
Enter a program name of 'PROGOl' . 

Press Enter Key . 

Assure that output device for the RPG Specifications is available and 
ready. If the output is to card or diskette, save for later verification. 
If the output is to disk, the $MAINT procedure, FORRPG. will be 
executed later with CCP shutdown to catalog this entry in the source 
library. 

The MENU screen will be displayed following the completion of this option. 
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•v cEEN NAME-$ZF0R9 
)xXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXX)(XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

X 

*# DELETE FUMCTION ** ^ 

X 

X 

SELECT THE »I0« NUMBER AMD SCREEN MAME THAT YOU : ■ ' X 

WANT TO DELETEe IF BOTH OOM»T MATCH FOR A SCREEN X 

CONTAINED ON THE mRK FILE* A MESSAGE WILL BE ■- X 

DISPLAYED SAYJi^G THAT THE SCREEN WAS NOT FOUND ' X 



X . SCREEN- $ZTST1 



X 
X 

X 
X 

X 
X 
X 

X 

y 



ID N0»- 2? 01 



XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

Select option 5 on menu screen (not dispkyed) . 

Press enter key. 

EBter $ZTST1 in screen name and 01 in ID fields. 

Press enter key . " 

The program will return a message stating that the screen 
was deleted. 

Press enter key to return to menu screen. 
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sjs.lmple output listing 

(OPTION 7) 



// CALL RPGfFl 

// COMPILE QBJECT-R2 

// RUN 

OOOIOH C 

00020FTERMIN IP 105 

00030F 

00040FTERM0UT 3 104 

00050F 

00060F* 

00070F* 

00080F* 

00090E PL 5 

OOIOOITERMIN NiS 01 15 C« 

DC 110 1 

001201 

001301 

OOI40I 

001501 

001601 

001701 

001801 

001901 

002001 

0u210I 

002201 

002301 

0024GI NS 02 

00250C* 

002600-^ 

00270C* 

00260C* 

00290C* 

003000TERM0UT 01 

003100 

0C320O 

003300 • TMNAME. 

003400 

003500 NAME2 

003600 ADDR2 

003700 CITY2 

003800 STATE2 

003900 ZIP2 

004000 SLSMM2: 

004100 crlim;. 

** accept input op code and maximum 

D 105 



) 



SPECIAL 
SPECIAL 



1 

3 
5 
9 
15 
16 
22 
42 
62 
76 
78 
83 
97 



SUBR92 

KPL 

SU8R92 
KPL 



20INTRN 
400UTRTN 

80LENGTH 

14 TMNAME 

15 AID 

21 PAS^RD 
41 NAME 
61 ADDR 
75 CITY 
77 STATE 
820ZIP 
96 SLSMN 
1052CRLIM 



•GB« 

» 104* 



•$ZTST2' 



4 

8 
14 
20 
40 
60 
74 
76 
81 
95 
104 
IMPUT LENGTH 



PROGO. 

PROGOj 

PROGOi 

PROGOl 

PROGOI 

PROGOi 

PROGOl 

PROGOl 

PROGOl 

PROGOi 

PROGOl 

PROGOl 

PROGOl 

PROGOi 

PROGO" 

PROGOa 

PROGOl 

PROGO' 

PROGO: 

PROGOl 

PROGOi 

PROC 

PROG- 

PROGv 

PROGOl 

PROGOi 

PROGOi 

PROGOl 

PROGOI 

PROGO. 

PROGOi 

PROGOi 

PROGOi 

PROGOJ- 

PROGO. 

PROGOl 

PROGOi 

PROGOl 

PROGOl 

PROGO 

PROGO. 
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NO INPUT SPECS SELECTED 
(OPTION 7) 



01 15 



\/ CALL RPG,F1 
// COMPILE 0BJECT-R2 
// RUN 
OOOIOH C 
00020FTERMIN IP 
00030F 

00040FTERM0UT 

00050F 

00060F* 

00070F* 

00080F* 

00090E 

OOlOOITERMIfsJ ,MS 

OOllOI 

001201 

001301 

OOl^hOI 
^^1501- 

w01600TERMOUT 

001700 

001800 

001900 

002000 

002100 

■'^02200 

)230O 

~ '<\2^00 

Jzsoo 

002600 
002700 

** ACCEPT INPUT OP CODE 
D ?? 



?? 



IQ'i 



SPCCIAL 
SPECIAL 



SUBR92 
KPL 

SUBR92 
KPL 



PL 

C 



01 







1 20INTRN 






3 400UTRTN 






5 80LENGTH 






9 14 TMNAME 






15 15 AID 




. 4 


•GB' 




6 


• 104' 


TMNAME 


14 






20 


•$ZTST2' 


NAME2 


40 




ADDR2 


60 




CITY2 


74 




STATE2 


76 




ZIP2 


81 




SLSMN2 


95 




CRLIM2 


104 





AMD MAXIMUNJ INPUT LENGTH 



PROG02 

PR0G02 

PR0G02 

PROG02 

PR0G02 

PR0G02 

PR0G02 

PR0G02 

PR0G02 

PR0G02 

PROG02 

PR0G02 

PR0G02 

PROG02 

PR0G02 

PR0G02 

PR0G02 

PR0G02 

PR0G02 

PR0G02 

PR0G02 

PR0G02 

PROG02 

PR0G02 

PR0G02 

PR0G02 

PR0G02 
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NO OUTPUT SPECS SELECTED 
(OPTION 7) 



PL 
C 



// CALL RPG.Fl 

// COMPILE QBJECT-R2 

// RUN 

OOOiOH C 

00020FTERMIN IP 105 

00030F 

0004-OFTERMOUT ?? 

00050F 

0006GF* 

00070F* 

00080F* 

O0a90E 

OOIOOITERMIM NS 01 15 

OOliOI 

001201 

001301 

OOI^OI 

Q0I50I 

001601 

001701 

001801 

001901 

0G200I 

002101 

002201 

002301 

002401 MS 02 

00250C* 

0026-OC* 

00270C* 

00280C* 

00290C* 

** ACCEPT 



SPECIAL SU8R92 
KPL 

SPECIAL SUBR92 
KPL 



1 


20INTRN 


3 


400UTRTM 


5 


80LENGTH 


9 


14 TMNAME 


15 


15 AID 


16 


21 PASWRO 


22 


41 NAME 


42 


61 ADOR 


62 


75 CITY 


76 


77 STATE 


78 


S20ZIP 


83 


96 SLSMN 


97 


1052CRLIM 



LMPUT 




OP 



CODE 
105 



AND 'AXIMUN INPUT LENGTH 



) 



PRC^ 
PRO 
PROb 
PROr 

PROG 

prol;* 

PROf-' 

pr: 

PRO- 

: RTC. 

PRC 

PROu. 

PR0G03 

PR0G03 

PROGOB 

prog;--^ 

PRDGO^ 

PROGO^ 

PROGO 

PR0&03 

PROGO: 

PRO&G' 

PRO 

PROG • 

PROG , 

PROG 03 

PR0G05 

PROGO:- 

PROGO: 



/* 
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ope:rating the system 



3.0 



OPERATING THE SYSTEM 

Once the sample problem has been run and a few additional screens 
created, the user should fe<=l ccmfortable with the use of this PDP. 

Erase EOF Key 

There is one function performed by the 3270 hardware that the user 
should be aware of. Since the 3270 is a teleprocessing device, it will 
attempt to keep the amount of data transmitted to the CPU to a minimum. 
Therefore, unused and unaltered portions of the screen may not transmitted. 
The device recognizes these scresn positions by the presence of a 'null' 
character (X '00') . So the hard^^are scans the screen or buffer positions for 
these characters and bypaisses the transmission of any found. 

The programs are written to place blanks (X '40') in all entry positions 
of the Create and Modify Entry screens . So if the cursor positioning key 
h-^) is used to bypass screen pcsitions, the original blank characters still 
rem;ain on the screen and will be transmitted; the correct positions of fields 
witliin a line is maintained. 

A possible problem can ailse if the operator uses the 'ERASE EOF' key at 
the beginning or within the screein line. This key will clear that field or 
line to 'null' characters. If the cursor advance key (™H key is then used 
to bypass some positions on that Une, the 'null' characters will remain. 
Any following fields will then be moved to the left and give an incorrect 
position for those entries. For lixample: 

Operator keys: AAAA 

Erase EOF Key pressed: 

Operator moves cursor 10 pos. 

Operator keys NNNN 

Displayed on screen: AAAA NNNN 

Transmitted to GPU: AAAANNNN 

To eliminate this condition the operator should be careful to use the 

space key to advance the cursor following the use of the 'ERASE EOF' key. 

This will place the desired blank characters in the correct screen positions . 

If the 'ERASE EOF' key is not used, the (-*») key can be used as desired. 
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Screen ID 

Ail of the selection options prompt the operator to enter both a Screen Name 
and ID to retrieve the desired screen format. This ID is a two position sequential 
number assigned by the FBP to all new screen formats. It is included to allow 
multiple versions of a screen format with the same name on the FORMAT disk file. 
The operator can then select a particular version by also entering the ID reference 
along with the Screen Name. If no ID is entered, all the programs have been 
written to select only the first Screen Name match found in the FORMAT disk 
file, (see Program Description for F0RSC5 for an exception to this) . So only 
in the case of mxiitiplei screen formats with the same name should the operator be 
concerned with Screen ID. 



328x Printer 

Screens being created or modified can be copied to a 328x printer at any time 
by pressing the PFl key, A printer of this type is not required for the success- 
ful installation or operation of this system, but can be used if available. The 
MENU screen can also be printed on a 328x printer if desired by pressing the 
PFl key. 



P rogram Function Keys 

The only Program Funtion key used is PFl as described above. 

Model 8, 10, 12 U sers .[' ^: . . 

The System Operator will have to allocate the Printer and MFCl'/ 3741 to the CCP 
partition for the execution of F0RSC5 and F0RSC7. The suggested Assignment 
Set provided includes this allocation in the // SYSTEM Statement. If a batch 
program level is also active, these devices must then be allocated to OTHER for 
use in this program level. 

i.e. ALLOCATE PRINTER, CCP 

or 
ALLOCATE PRINTER, OTHER 

See your System Operator's Guide for these commands. 
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RETURNING TO MENU SC REEN 

The user can normally return to the MENU Screen following the successful 
completion of each option by pressing the Enter key. An exception to this 
is Option 8 where the user must press the Clear key and enter the program 
name FORMAT. ,, . . ■ 

Also, anytime an error message is presented (i.e.. Screen Not Found, 
Truncated Screen, etc.) , the user is given the opportunity for retry. 
To return to the MENU Screen after an error if no retry is desired, press 
the Clear key and enter the program name FORMAT. 
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PROGRAM DESCRIPTIONS 

y 
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SUMMARY OF PROGRAMS 



Non CCP Programs: 

FORLOD 

FORORl 

F0R0R2* 

FORPRT* 

FORSET* 



File Creation Program 
File Reorganize Program 1 
File Reorginize Program 2 
Screen Documentation Aid 
Load Existing DFF Specifications 



CCP Programs: 

FORMAT 

FORSCl 

F0RSC2 

F0RSC3 
F0RSG4 
F0RSG5* 
F0RSC6 

.. F0RSC7* 
F0RSC8 



Display Menu 

Process Options 

Screen Generation 

Screen Completion 

Display, Modify, Delete Options 

Display Screen/Output DFF Specs 

Assign Field Names 

Punch RPG Specification 

Execute Screen 



The above programs witli an asterisk following their name require Unit 
Record modules (Printer, MFCU, etc.) for execution. Assure that the 
normal RPG compiler is used for the non-CGP programs and that the CCP 
RI'G compiler is used for the CCP programs. 
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SUMMARY OF SCREENS 



Name 



Function 



$ZF0R1 

$ZF0R2 

$ZF0R3 

$ZF0R4 

$ZF0R5 

$ZF0R6 

$ZF0R7 

$ZF0R8 

$ZF0R9 

$ZFORA 

$ZFORB 

$ZFORC 

$ZFORD 

$ZFORE 

$ZFORG 

$ZFORJ 

$5:F0RH 

$ZFORW 

IZFORX 

SZFORY 



Screen creation input. 

Completion information prompt. 

Print screen image/output RPG specs, 

Display option prompt. 

Display screen. 

Screen names display. 

Modif}!' function prompt. 

Modify entry screen. 

Delete function prompt. 

Field name changes prompt. 

Field name changes common. 

Input field names. 

Output field names. 

Output gen field names . 

RPG specifications prompt. 

Blank screen. 

Execute option prompt. 

Error Message Line. 

MENU Screen. 

Linkage To FORMAT Program . 
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|PG2[IPG2_ 



(^ START^ 



FORMAT 



PG2J[F'G3 



D3 1 D4 



PG3 
G3 



-*< MENU 



FORMAT 



PG2 



K4 



FORMAT 



— to> 



$ZFORX 



FORSCI 



NO 




OPTION > 
I -^ 

YES 




E, 



NO 



CREATE 
SCREEN 



\_ 



$ZFOR I 



-^ 






F0RSC2 




PG3 




NO »^C0MPLETI0N' 

GREEN 



$ZF0R2 



rPG2| 

LaTj 



n 



FORMAT \^ B>. 



F0RSC3 



KU 



( 



a. 7 







A I 



YES 



YES 



DISPLAY 
OPTION 



MODIFY 
OPTION 



$ZF0R4 



FORMAT 



$ZF0R7 



F0RSC4 




OPTION 



'^SCREEN 

NAME 

LISTING 



$ZFORY 




5CRE0<r\YES 
.ACTIVE 



iZFORY 



SCREEN 
DISPLAY 



MODIFY 
SCREEN 



1 ^ZF0R6 



iZF0R5 



$ZF0R8 






OFF CARDS 



DELETE 
OPTION 



IZF0R9 



OPTION 5 



FORMAT 



PGI 



A2 



$ZFORD 




/f^ORE 



$ZFORC 



RPG CARDS 



/EXECUTE 
\ OPTION ,^ 
\ /$ZFOR H 



PGI 
.04 




( 



CREATE FORMAT FILE 



FORLOD 



_aJ FORMAT 



REORGINIZE FORWIAT FILE 



FO R OR I 




OFF CARDS OR 



OFF 
SPECIFICATION 
RECORDS 



DOCUMENTATION AID 



FOR PRT 



DOCUMENTATION 
LISTING 
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LOAD DFF SPECS TO DISK 



y- 



DFF SOURCE OR 



DFF 

SPECIFICATION 

CARDS 



~^^ 



FORMAT 



FORSET 



( 



LISTING 



PROCEDURE NAME: FORDFF 
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PROCEDURE NAME: FORRPG 
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FORLOD 



This program is executed initially to create the disk file (FOJRMATI used 
for scraen preparation and maintenance. The size of the format file is 

a user decision depending on the number and size scraen formats to be 

created . 

For each screen format created the file will contain the following records: 

4 records header and OCL 

24 records screen image 

? records DFF specifications 

The number of records created for DFF specifications will depend on the 
content of the screen . A reasonable average number of records for each 
screen format is 100. 

OCL R equired 

// LOAD FORLOD, R2 (MODIFY IF NECESSARY) 

// FIL£ NAME-FORMAT. UNIT-??, PACK-??????, RECORDS-???? 
// RUN 



c 
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FORORl 



This program is used to create a direct file. This file (FORMATWK) is 
used as a work file dtiring reorganization of the FORMAT file. Care 
should be taken to insure that this file is large enough to hold all the 
records from the FORMAT file minus the deleted screens. This is an 
off-line program to be used in conjunction with FOROR2 program. 



OCL Required 



// LOAD FORORl, R2 (MODIFY IF NECESSARY) 

// FILE NAME--FORMAirWKrUN!T-??tPACK-??????tRECORDS-???? 
// RUN 
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F0R0R2 



This program is used to reorganize the FOfMAT file. With this aid, 
reorganization means the removal of deleted screens fzom the FORMAT 
file and restructuring the identification numbers and tiie forward and 
backward pointers in tJie header records after the removal of deleted 
screens . 

This program reads the FORMAT file as an input file and uses the 
FORMATWK file created by the FORORl program as an output hold 
file. As the progiram executes, a listing on the System's Printer will 

show all the screen naimes in the FORMAT file and indicates the ones 
liiat are being removed . The total number of screens along with the 
number of records used in the new FORMAT file will be shown at the 
completion of execution. The old FORMAT file should be scratched and 

the FORMATWK file should be copied back as the new FORMAT file . 



FOROR2 



QGL Required 

// LOAD F0R0R2tR2 {MODIFY IF NECESSARY} 
// FILE NAME-FORHAT, UNIT-??, PACK-?????? 
// FILE NAME-FORMATWK^UNIT-??fPACK-?????? 
// RUN 
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This program is executed in a batch mode and is used to produce supporting 
documentation from the DFF specification records. Separate arrays are used to 
print the output and input functions for a screen. This allows overprinting 
for fields defined as output /input. 

The field is first tested for generated data. If it is a generated flald, the 
data is moved to a worldng array (LN) . For non generated Output Fields the 
field type is looked up in a table (TABA for output fields and TABE for 
output/input fields) and the resulting table entry (TABB or TABF) is then 
moved to the working array. The positions of the array (LN) are then 
individually moved to output line array (LNO) . 

Fields with input characteristics are then looked up in array TABC and tlie 
resulting table entry (TABD) moved to the working array (LN) . The elements 
of this array are similarily moved to the input line array (LNI) . 

Each of these arrays (LNO, LNI) is then moved to the output and input arrays 
(IN and OUT) . On recognizing the control card record, a cycle is initiated to 
print the resulting display. -- 

The program is distributed so that all Output Non Generated fields will print ^ 

an asterisk (*) and all Input field types will print a period ( . ) . This ca.n be 
be altered by modiiying the table entries if desired. 

External Switch 1 Option - allows documenting overlay screens . 

Program Halt (HI) ~ Partial Line Duplication - invalid. 

OCL required - // LOAD F0RPRTtR2 C MODI FY IF NECESSARY) 
// RUN 

*If disk is used for the output of DFF specifications , an additional File OCL 
should be added: 

// FILE NAME-0FFCARDS,UNIT-??9PACK--?????? 
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FORSET 



This program is execuited in a batch mode and is used to Ust and output 
existing DFF Specifications to the FORMAT disk file. Both the screen image 
and DFF Specifications are written to disk on the same format as produced 
by the on-line Creation Program, F0RSC2, The characters used to represent 
the screen imags are consistent with those of F0RSG2. The following arrays 
are used to daterniine the characters to represent the fields: 

TYP ~ Possible field types (1-8) . 

OE - Output Execution Field characters. 

OG - Output Generated Field Start 8 Stop Characters 

I ~ Input Fluid characters. 

OIE - Outpu:;/Input Execution characters. 

OIG - Output/Input Generated Fields Start S Stop characters. 

The Field Type fo:: each Specification is used to LOKUP in the array TYP, 
then the resulting Index is used to compare the entry in the corresponding 
array (OE. OG , I, etc) for a blank. If either the entry is blank or the Field 
Type is not found in the TYP array, the default Field Type (1) is used for 
the field. The field defining characters or in the case of a Generated Field, 
the literal is moved to the array OUT for later output to disk. 

It is possible that valid DFF Specifications may be present that are not valid 
with the use of this aid. The following is a list of possible errors and the 
resulting program action. 

Partial Line or Field Duplication Specifications: tiie specification 

is dropped. 

Field starting in Line 1, Pos 1-10: No screen image is created 

but DFF Specification is written tx) disk. 

Invalid Field Type: Default used. 

Generated Field stair ting in the first position of a Une: the 

Starting Field Character is dropped in screen image. 

Field extending past position 79 of a Une: the field is 

truncated at position 79. 

The FORMAT file has an Active Screen not completed by 

F0RSC3: program terminated and remainder of the input 

is bypassed. 

The FORMAT file is full: program terminated and the remainder 

of the input is bypassed. 

Complete Line Duplication Specification: the correct screen image 

is produced, the Specification is written to disk, and the Screen 

Header is marked with the 'Truncated Flag'. This flag will prevent 

the output of either the DFF or EPG Specifications. The User should 

execute the Modify Function and the System will produce screen 

entries usable by all functions. 
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Since the program will bypass any input records without a C or F in 
column 1, the OCL can remain with the input on executing this program. 
Multiple screens can be written to disk by removing any /* cards between 
decks . 

OCL Required - ^/ LO.ao FOR<;pt o-^ 
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FORMAT 



This program outputs the basic MENU screen (IZFORX) to the 
3275/3277. The user then selects from the options on this screen 
to initiate the selectecl programs. This is the only CGP program 
name that this operator must remember and enter. 
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FORSCl 



This program is loaded with input from the basic MENU screen 
($ZFORX) . Tests !ire made to assure that only one selection was 
made and that the work file (FORMAT) is not full. If a screen is 
'active', initiated but not coopleted with F0RSC3, the screen $ZF0R2 
is forced out to request the required completion information. If the 
above edit tests are successful, the following options and screen selections 
result: 



Option 



Screen 



Function 



1 
2 
3 

4 
5 
6 
7 
8 



$ZF0R1 
$ZF{)R3 
$ZF()R4 
$ZF()R7 
$ZFOR9 
$ZFORA 
$ZFORG 
$ZFORH 



Screen creation input 

Print screen iirage/oul^ut RPG specs 

Display option prcirpt. 

Mcdify function prorpt 
Delete function praipt 
Field naiTK changes pnxpt 
BPG_ specifications prcsr^t 
Execute option protpt 



( 



PFl key will print the displayed screen on the 32 8X printer defined in 
the assignment set with the name PRINTl. 
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F0RSC2 



This program is loaded with input from either the creation screen {$ZFORi) 
or mo(Mf7 entry screen ($ZF0R8) . The input fields to the program consist 

of the 24 lines of screen input. A test is first made to assxire that a prior 
format isn't partially completed or the disk file (FORMAT) full. In the case 
of a format partially completed, the keyboard is restored with no additional 
processing. This will occur only when this aid is being used simultaneously 
from two or more tei-minals. When the other terminal completes its screen, this 
entry wiE be honored. 

The program output to the format file consists of 24 lines of screen image 
followed by the three entries from the array OGL . The specific entries from 
the screen axe then interrogated to produce the field specification records. 
Three resulting tables are used to produce the field specifications: 

TABA - Field starting character 

TABB - Field enging character 
TABG - Field starting character 

TABD - Type of field; input, output, output/ input 
TABE ~ Field st;arting character 

TABF - Field type specification 

The presence of a field terminating character in TABB defines this field 

as a generated field. 

If a generated field is started but the termination character not properly 
entered to terminate the field, the field will be automatically terminated 
at the last possible position (78) of that Mne. 

When a non-generated field is started the program tests to insure that 
the same starting chai-acter is propagated. A character different from the 
original will terminate the field. 

All fields with input characteristics will be generated with autoskip - yes. 
The user can code a concatonation sign ( I ) in place of the normal termin- 
ation character to obtsun the Autoskip-No option. 

The program interrogates the first five positions of lines 3-24 for the 
characters '*DUP*'. On recognizing this entry, the previous line is 
duplicated to the current Line. 
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If the PFl key is pressed rather than the Enter Key, the screen image 
will be copied to the 328x printer with the terminal name 'PRINTl'. 

A count is maintained of the total length for both the input and output 
fields. This count is writted to the screen's header record for use 
with program F0RSC7, 
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F0RSC3 



This program is loaded witli input from the 'Screen Creation' screen 
C$ZF0R2) . Input fields to this program are: PHF Program definition. 

Screen Name, Erase Option, and a Screen Name and ID Coptional) to 
be used for the DFF Field Name Specifications. If a Screen Name/ID is 
entered for Field Names, the field specifications are located and the 
following is saved {A;rray-FLD] for each field CMAX=1 59) : screen location, 
length, and type definition. Any fields from tlie current screen matching 
all this information will acquire the field names (Array-NAM) from the 
selected fields. If a PRDF Program Name is entered, a field specification 
record is activated. If room doesn't exist in the disk file (FORMAT) to 
contain all required specifications. F0RSC3 issues an operator message 
for a 'Truncated Screen' . Position 15 of the header record is also updated 
with an asterisk indicated that this screen is 'Truncated'. Format file record 
#1 and the current and next header records are updated with the forward and 
backward pointers. 
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F0RSC4 

This program is loaded and used for all of the foliowing screen options: 

Display Function i[$ZF0R4) , Modify Function ($ZF0R7) , and Delete Function 

($ZF0R9) . A screen code (pos 23 of input) defines the function selected. 

The following fields are input to the program: Last ID (used for screen overflow 

of names listing), Screen Name, and Screen ID. If no screen name is entered 

with the display function, a list of active screens along with next record to 

be used is displayed C$ZF0R6) . If more than 30 names are active, a Put-Overide 

is used to update screen 'Last ID' field and instruct the opeator to continue. 

With a screen name entered, this name and the ID (optional) are used to '^^ 

locate the correct screen in the format file and output one of the following: 

FHE£!!25. Screen Code Outpu t Screen 

Display D $ZF0R5 

Modify M $ZF0R8 

■^^^^^® X Put override message. 

The delete function requires that both screen name and ID must be entered. % 

The operator will be issued a message confirming the deleti"on7" 

Following the completion of each function except modify, the screen ($ZFORY) 
will be output. TMs screen will coniplete the linkage back to the Menu Screen 
($ZFORX) on the next depression of the Enter key. 
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F0RSC5 



TMs program is loaded with input from screen $ZF0R3 and is used to 
output the DFF Specifjlcalion Records. The image of the Screen Input is 
also printed on the S3rstem Printer. Input fields to the program include 
Screen Name, ID, Print Option, and Punch Ontion, The program first 
checks the print and punch options for ai: X indicating that this function 
is not to be performed. If no Screen Name is entered, all active screens 
will be selected. Otherwise the Screen Name and ID (optional) are used 
to locate the selected format and output the request. If multiple screen 
format entries exist with the same Name and no ID was entered, all versions 
with a matching name will be selected. 

If the screen Header Record has the Truncated Flag on (pos 15 is an asterisk) , 
an operator message i^ili be used and no DFF specifications will be output. If 
no errors are found, the menu screen C$ZFORX) will be output prior to program 
termination. With the No Screens Active or 'Truncated Screen' massages the 
screen $ZFORY will be output. This screen will complete the linkage back to 
the MENU screen ($ZFORX) on the next depression of the Enter key. 
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This program is initated with option 6 and is loaded from any of the following 
program screens: 

Initial Screen $ZFORA 

Input Fields $ZFORC 

' Output Fields IZFORD 

Generated Output only fields $ZFORE 

FORSCl outputs the inilial screen ($ZFORA) which requests the operator to 
enter the Screen Name and ID (optional) selection. The next three screens 

are presented in a sequence most logical to interface the Field Names to an ^--. 

KPG program. Each of the screens is preceeded by a common screen C$ZFORD) 
presenting the field locations, length and types. The common screen is used 
to keep the largest field descripter table and text length smaller to reduce the 

program siM. 

The array SEL'is filled with the Relative Record Number, Name, and decimal 

positions ($ZFORC only) for each of the possible 30 fields for display. Each 

field is interrogated for Numeric aad if so, the decimal field is changed from ^' 

Type 6 to Type 3 with a Fot-override to allow operator changes. The operator f 

can also enter changes to the cursor position if desired, but the field selected 

nmst be displayed. Entering a '* ' for the cursor position will delete 

a cursor position. 

The screen for output fields C$ZFOED} will reflect any prior names entered 

on the Input Fields Screen ($ZFORC) for Ouptut Input fields (represented as 

type U) . Any name chianges ente "ed on fee Ouptut screen for Output/Input 

fields will produce a '2nd Name' ix that field. This '2nd Name' will not be ^^ 

used on the DFF Speciflcations bu; only with option 7, RPG II Output Specs. 

Entering '* 'in the Name fielii will delete a '2nd Name' if present. 

PFl key or completion of all screens will output the MENU Screen ($ZFORX) . 

The listing produced by selecting MENU Option 2 will assist the User in 
relating the generated field names to the actual screen entries . 
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F0RSC7 



This program writes to disk or diskette or punches to cards RPG !I 
Specifications derived from selected screen names . 

The execution of F0RSC7 begins with selecting option number seven 

from the MENU screen. This selection will display the RPG 11 Specification 

Options Screen (IZFOHG) . The RPG II Specificatioii Options Screen has six 
parameters which may or may not be chosen. 

Parameters number one and two ask for the Screen Name and ID (optional) 
that records are to be created from as RPG 11 Input specificatioas . If a 
Screen Name is specifi.ed, F0RSC7 will search the selected Screen for all 
Input and Output/Input Display Format Facility (DFF) specifications and 
create RPG II Input records for those fields . If you bypass tills option , 
F0RSC7 will not provide RPG 11 Input specification for any Screen. How- 
ever, F0RSC7 will provide a RPG U File specification for input along with 
tJie standard five fields (first fifteen position of the RPG H input area] used 
with the Communication Control Program (CCP) . 

Parameter number three asks for the number of RPG n Calculation Specification 
comment records to be inserted between the RPG II Input and Output specifi- 
cation records. If this option is bypassed, there will not be any RPG n 

Calculation comment records inserted. 

Parameters number four and five ask for Screen Name and ID (optional) 
that records are to be created for as RPG II Output specificatioas . If a 
Screen Name is specified, F0RSC7 will search the selected Screen for all 
Execution Output Display Format Facility (DFF) specifications and create 
RPG II Output records for those fields. If you bypass this option, F0RSC7 
will not provide FffG II Output Specification for any screen nor will it 
provide any of the standard RPG 11 Output Specifications used with the 
Communication Control Programs (CCP) output operations. 

Parameter number six asks for a name that F0RSG7 can use as a program 
name in the RPG II Specifications being created from the selected Screens. 
If this parameter is bypass, F0RSC7 will use blanks for the program name. 

Refer to SAMPLE PROBLEM for examples. 
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F0RSC8 



This program is used to execute tlie Display Format Facility (DFF) specilacations 
in the FORMAT file. 

The execution of F0RSC8 begins with selecting option number eight from the 
MENU screen. This selection wiU display the Execution Options Screen ($ZKM!) . 
This screen has thiree parameters which may or may not be chosen . 

Parameter number one which will always be completed, asks for the screen name 
you wish to execute. 

Parameter number two asks for the screen identification number in case fiiere are ^^ 
duplicate format names in the file. If this parameter is bypassed, the default is 
to execute the first screen name found in the file matching the screen name entered 
in parameter number one. 

Parameter number three asks for the symbolic name of a device to display the 
selected screen. If this paraneter is h^^ssed, the screen ^la:±rf will be esKcutai 
on the device makJLng the request. If a symbolic device name is entered, the — 

screen selected will be executed on that device provided it is signed off or is /' 

classified in the assignment set as a data terminal . This parameter allows the \ 

user to place multiple screens on other devices. 

F0RSC8 returns two error messages to the user. One message is that the screen 
cannot be found. The second message is that the screen is Truncated. In both 
cases the user will want to examine the screen name selected . 
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FILE DESCRIPTIONS 
File Name: FORMAT (FORMATWK) 

Purpose: Contains the screen image and DFF Specification records for 
screen fox'mats created. 

Creation: FORLOD 

Updated: FORSC2,FORSC3,FORSC4,FORSC6 .FORSET 

File Media: Disk file 
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Organization: DIRECT 



Record length: 80 






Record 


Field 






Type 


Name 


Description 


From-To 


MASTER 


— 


Unused 


1-6 




NEXT 


Next, Header Rec . @ 


7-10 




WORK 


Open Header Rec.@ 


11-14 




ACTIVE 


Active Format Flag 


15-15 




CURSOR 


Temp. Cursor Pes Save 


i 16-21 




— 


Unused 


22-79 




RECCOD 


Rec. Code 'M' 


80-80 


HEADER 


ID 


Screen ID 


1-2 




PREV 


Previous Header (3 


3-6 




NEXT 


Next Header© 


7-10 




— 


Unused 


11-14 




TRUNC 


Truncated Flag 


15-15 




SCRNID 


Screen Name 


16-21 




CURPOS 


Cursor Pos , 


22-27 




INLTH 


Input Text Length 


28-31 




OUTLTH 


Output Text Length 


32-35 




— 


Unused 


36-78 




DELET 


Delete Flag 


79-79 




RECCOD 


Record Code 'H' 


8Q-80 


OCL/Screen 


— 


Record Image 


1-80 


Lines 








DFF Specs 


— 


Record Image 


1-72 




. NAME 2 


2nd Name 


73-78 




DECPOS 


Dec. Pos. 


79-79 




DELETE 


Delete Flag 


80-80 



No of 


Field 


Bytes 


Length 


6 


-- 


4 


4.0 


4 


4»0 


1 


1 


e 


6 


58 


-- 


1 


1 


2 


2,0 


4 


4.0 


4 


4.0 


4 


— 


1 


1 


6 


6 


6 


6 


4 


4,0 


4 


4.0 


43 


-,_ 


1 


1 


1 


1 



80 



72 
6 
1 
1 



80 



72 
6 

1.0 
1 
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FILE DESCRIPTIONS 

File Name: DFFCARD S 

Purpose: Contains card Image of DFF Specification 
Records and OCL. 

Creation: Not required. 

Added To: F0RSC5 

File Media: Cards, Diskette, Disk File 

Record Length: 96 (last 16 pos not used) 

File Name: RPGCARD S 

Purpose: Contains card image of RPG Specification 
Records and OCL. 

Creation: Not required. 

Added To: F0RSC7 

File Media: Cards, Diskette, Disk FUe 

Record Length: 96 (last 16 pos not used) 
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APPENDIX A 
(MODEL 4) 



( 



c 



( 



* ft 

* CCL TO COPY SCREEN DESIGN FACILITY OBJECT PROGRAMS ~ SCREENS AMD * 

* PROCEDURES FROM THE OISTRIBUTION PACK TO UNIT WHERE C C P * 

* EXPECTS THEM TO RESIDE * 

* * 

// LOAD $MAINT,F1 
// RUN 

// COPY FR0M-Rl,LI6RARY~0sNAME-F0R«ALL,ReTAIN-PfT0-?? 
// COPY FROM-»Rl,LIBRARY--0,NAmE---$ZFnR«ALLfReTAIN-P,UNIT--?? 
// COPY FR0M"RitL!8RARY-P,NAME-ALLfRETA!N"P»T0"?? 
// ENO 



( ., 



c 
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'I 



t****::i,l!**«***« \ 



* BRINGING UP CCP— • * 

« * 

// LOAD $CCPf?? *F3RCCP* 

// FILE NAME-FORMAT, UM IT-??, PACK-?????? 

// FILE NAME-DFFCAROSt JfM!T-??,PACK-'???????RECCRDS"???? DISK 

// FILE NAME-RPGCAROSfJNIT-??, PACK-??????, RECORDS-???? OPTIONS 

// RUN 

*:}:****3^*^*^:^«**3js4t-lt^**:S!4t:j.**4t*««****«******«******** ******** ************ 

« * 

* DISK OPTION - COPY THE DFF SPECIFICATIONS TO SOURCE LIBRARY * 

* * 

«5St« «#«#«:^ :J:*^4:** ******* ********^**** **************************** ******* 

// LOAD SMAINTtFl *FOROFF* 

// FILE NAME-OFFCAROSrUMIT~??,PACK-??????,RET&IN~S 

// RUM 

// COPY FR0M-DrSK,FILE-DFFCAR0S9RECL-96?Tn-??,RETAIN--P 

// END 



:^«**^*3!t****^:<J ***#;** :^* ****** ******** ^ 



* * 

* DISK OPTION - COPY THE RPG SPECIFICATIONS TO SOURCE LIBRARY * 

* * 

««*5!t*«*:^*:^5}t****««:#***********:^*****:«s******* *************** ************ 

// LOAD $HAINT,F1 *FORRPG* 

// FILE NAME-RPGCABDSf UNIT"??,P&CK-??????f RETAIN-S 

// RUN 

// COPY FR0M--OiSK,FILE-RPGCARDS?RECL"96,TO~??^RETAIN-P 

// END 

««*^«*!S:****«*****3St****«*=S********* ********************** ************** 

* * 

* DISK OPTION - DOCUMENTATION OF SCREENS WITH spORPRT'-- * 

* * 

***^*:^*** 5^*:* *^**^3«s^***!^ ****«««****«#*««************************* ****** 

// LOAD FORPRT,?? *FORPRT* 

// PILE NAME-DFFCAROSf UNIT"-??»PACK-'?????? 

// RUN 



c 
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#**«**************«**:}t****:{e*«t« ****:«£***«**** ******************* ******** 

* * 

* CREATE THE "FORMAT' FILE * 

* * 

********************3^S|E**^4£4t*******************«********************4E^^ 



// LOAD FQRLODf?? *FORLOD* 

// FILE NAME-FORMAT, UNIT-??, PACK-??????, RECORDS"????, RETAI»^-P 

// RUN 



* * 

■^ REORGINIZE THE 'FORMAT' FILE- * 

* * 



// LOAD FORORl,?? *F0R0R1* 

// FILE '^AME-FORMATWK,U^IT-??sPACK-??????, RECORDS-???? 
// RUN 

// LOAD F0R0R2,?? *F0R0R2* 
// FILE !^AME-FORMAT,UNIT-??*PCK-?????? 
// FILE NAME-FORMATWK, UNIT-??, PACK-?????? 
// ^\}H 

// LOAD $DELET,F1 *F0R0R3* 

// RUN 

// SCRATCH PACK-??????,UNIT-??sLABEL-FORMAT 

// END 

// LOAD $C0PY,F1 *F0R0R4* 

// FILE MAME-C3PYIM, UNIT-??, PACK-??????, LABEL-FORMATWK,RETAIN-S 

// FILE NAME-COP¥0«UNIT-??,PACK-??????,RETAIi"^-P,RECORDS-????r 

// LABEL-FORMAT 

// RUN 

// COPYFILE OUTPUT-DISK 

// END 



*********************** ^^^:|5i{E^4s^;jc^4s^:^^^a5;j5^^^^^^^;|j^^^jjt5{t^^^^4e^^^^^^^^^:^^:^ 

* * 

* LOAD EXISTIMG DFF SPECS» TO 'FORMAT' FILE * 

* * 
*4=***************************** *************************************** 

// LOAD FORSET,?? *FORSET* 
// RUN 
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04 ASSIGNMENT SET 



* 

* MODEL 

// SET ID-F,&CTION-REPLACE»DFLTEXEC-MO 
SYSTEMI HIP>JUPA-17.25K.5HliMTPBUF"25e0f 

P&MREQL-20,COMMANDL-50f TRACEBLK-2» 
DFFP&CK-PROGRAM 

TERHATTR 4TTR ID-1, TRAf^SLftl-YES, UPCASE-YESt BLKL-512 , 
DATAFORM-MESSAGE,OFF3270-¥ES 

TERMATTR ATTRlD-2^ TRAWSLAT-YES, UFCASE-YESt 8Li<L-512f 

DATAF0RM-MESSAGE,0FF3270-NC 
8SCALINE TYPE-CS,POLLLIST-«0i,02',LINENU^"2 
BSCATERM TERMID-0ltTYPE~3277H2,ATTRID-«l«2S 

COMMAMD-YEStOFFACT^I-HOLOj 

ADORCHAR-«6060C1C1*,POLLCHAR-*4040C1C1=«= 
BSCATERM TERMID-02.TYPE-3286M2f ATTRID-»l% 

C0Mfi4AMD-N0^ 

AD0RCH&R-*6S60C2C2*sP3LLCH4R-*4040C2C2* ■ 
TERMNAME JMAME-TERMOl , TER^ I D~00 
TERMNAME NAME~TeRM02„ TER^mO-Ol 
TERMNAME MAME»PR INTl , TERimD-02 
DISKFILE NAME--F0RMAT,0RG-D,RECL-80 
OISKFILE MAME-DFFCAR0SsQRG-C?RECL-9& 
DISKFILE MAME-RPGCAR0S^0R3-C*RECL-96 
PROGRAM NAME-FORMAT^ EMOMSG™^0» 



* 



( 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
** 

// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



DFFMTERM~l»DFFNDF-i»DFFSFDT-256»PGMDATA-N0? 

PACK-PROGRAM 
PROGRAM NAME-FORSClsENiDMSS-^Ot 

FILES-' FORMAT /DG/'^OSHRS 
■ DFFMTtRM-2?DFFNDF-3fOFFSFDT"^00,PGHOATA--YES, 

P RUF$1 - SZFBRl /PRai=L I'G -64^ 

PACK-PROGRAM 
PROGRAM NAMe"F0RSC2*ENDMSG~M0, 

FILES- 'FORHAT/DU/'^OSHR% 

DFFHTERM-2,DFF'^0F-3,DFFSFDT-400, 

PRUF$Z-$ZF0R1,PRUFLMG-1974., 

PACK-PRQGRAI^ 
PROGRAM MAME-F0RSC3,EM0MSS~'^0^ 

PRUF$Z-$ZF0R2,PRUFLMG-645 

FILES"«FORMAT/DU/MOSHR» , 

DFFMTERM-i,DFFMDF"lgDFFSFDT-»256 5 

PACK-PROGRAM 
PROGRAM NAME-FORSC^tENDMSG-MO, 

FILES-«FORHAT/DU/MOSHR« , 

0FFMTERM~l,0FFNDF-3,DFFSFDT-=450fPSM0ATA-YeS, 

PRUF$Z-$ZF0R4,PRUFLMG»6^^ 

PACK-PROGRAH 



0001 

0003- 
000^ 

0005C 

00061 

0007'; 

0008C 

0009' 

OOiO • 

00110 

00120 

oowo 

00, 

OOiSC 

00160 

00170 

30180 

00190 

00200 

00210 

0022;^. 

002 ^ 

0024\ 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00^3 

003^0 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

30420 

00430 

0044C 
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c 



-*% 



// 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 

/< 

// 
/* 



PROGRAM NAME- 
FILES- 

PRIMTE 
OFFMTE 
PRUF$Z 

PACK-P 
PROGRAM NAME- 
FILES- 
PGMDAT 
OFPs^TE 
PRUF$2 
PACK~P 
PROGRAM HAHE- 
FILES- 
DFF^TE 
PRUFliZ 
PROGRAM NAME- 
FILES- 
DFFMTE 
PRUF$2 



F0RSC5, 

'FORMAT 

R-YES,P 

RM-1,0F 

"$ZFQR3 

R06RAM 

F0RSC6» 

•FORMAT 

A-YES, 

RM-i,DF 

-$ZFORC 

ROGRAM 

F0RSC7, 

'FORMAT 

RM-1,0F 

"$2F0RG 

F0RSC8, 

'FORMAT 

RM-UOF 

-SZFORH 



ENDMSG-^a, 

/OG/NOSHR,OFFCARDS/CA/MOSHR' , 
GMOATA-YESf 
FNiDF-l,DFFSFDT-400, 

*PRUFLNG-6^f 

EMDMSG-MOf 
/DU/MOSHRS 

FNDF-lfDFFSFDT-1^34, 
,PRUFLNG-869, 

ENDMSG~MO, 

/0G/MDSHR,RP3CAR0S/CA/N0SHR^ , 

FNDF-l,0FFSFDT-128f 

,PRUFLMG-256 

E^JDMSS-^O^ 

/DG/?^OSHRS 

FNDF-lsDFFSFDT-lZSt 

.PRUFLMS-256 



00450 
00^60 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
03580 
00590 
00600 
00610 
00620 
00630 
00640 
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APPENDIX B 
(MODELS 8, 10. 12, 15) 



( 



( 



i 



* * 

* BRINGING UP CCP — * 

* * 

// LOAD SCCP^?? *FnRCCP* 

// FILE NA»^E~FORMAT?UNIT-??»PACK-?????? 

// FILE NAME-DFFCARDS„UNIT-??, PACK-??????, RECORDS-???? DISK 

// FILE NAME~RPGCARDS,,UNIT-??, PACK-??????, RECORDS-???? OPTIONS 

// RUN 



********** *:^*^^:ji :4c :^:^^^^|t;^^5^5jj^jjt^3^^3^^^^^^^^^35,^^^^^^^^jj,^^^^^^^^^^^^ 






* OISK OPTION ~ CCPY THE OFF SPECIFICATIONS TO SOURCE LIBRARY * 



// LOAO $MAINT,FI *f:pRpcp^ 

// FILF NAME-DFFCAPCS, UNIT-??, PACK-??????, RETAIN-S 

n PUN 

// COPY FROM-OISK,FIL';i-OFFCAR0S,RECL-9e,Tn-??,RETAfN~P 
// END 

***«******:J:-:jjt5!!*******ii;**********:$:*^**:^*:jc**5jc*~fe*:*3^:{£^-c:}!***:^*;{tSS£****=j:*^:{;:j.*$ 

* * 

* DISK OPTION - COPY THE RPG SPECIFICATIONS TO SOURCE LIBRARY * 

* * 

******* **^ *:^s :{t jjt Xr !)!**** *^t :St *** :}E«-s « 4c :<t:ift:jt#:j.*:{.:jj:(,:j.:^:j:^*:^:jc* ********** ************ 

// LOAD $M4INT,FI *fORPPG* 

// FILE NAMF-RPGCARDS, UNIT-??, PACK-??????, RETAIN~S 

// RUN 

// COPY FRnw|-DISK,FILE-RPGCARDS,RECL"96,T0-??,RETAIN-P 
// END 

**************«:):*:4,^:(c^:.::jt**********************:^ji=***:^***:j:!^***;iE:«!***:jt***** 

* * 

* OISK OPTION - DOCUf^ENTATION OF SCREENS WITH «FORPRT«— * 

* • * 

// LOAD FORPRT,?? *FORPRT* 

// FILE NAME-OFFCARDS,UNIT-??^PACK-?????? 

// RUN 
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* * f 

* I -- CREATE THE 'FORMAT^ FILE * V 

* * 

// LOAD FORLOD,?? *FORLOD* 

// FILE NAME«F0RMAT8UNIT-??.PACK»??????fREC3R0S-????fRET&IM-P 



*'- ' ■ . ■■ RE0R3IMIZE THE 'FORKAT' FILE- * 

* * 



// LOAD FORORl,?? =I-F0R0R1* 

// FILE !sJAME-F3RMATWK.»JNIT-??»P&CK-??????fREC0RDS-???? 

// RUN 

// LOAD F0R0R2*?? *FDR0F.2* 

// FILE NA?4E-F0RMAT.,UNIT"??^PACK-?????? 

// FILE NAME-F0Rf4ATWK,UNIT™??«PACK~?????? 

// ^UM 

// LOAD $DELET,F1 *F0ROR3* 

// RUN 

// SCRATCH PACK-??????,U\i; T™??«L&BEL-FORMAT 

// END 

// LOAD SCOPY^Fl ^=F0R0F4* 

7/ FILE NAME-COPY IN, UNIT- •■?» PACK-?????? 9 LABEL-FORMATWKtRETA I N-S 
// FILE NAME~COPYOsUNIT-?i ,PACK-??????^RETAIM--P?RECOROS"-????f 
// LABEL-FORMAT 
// RUN 

// CQPYFILE OUTPUT-DISK 
// EMD 



( 



*#*******«****^*:^*#=|!^|:**:**#****^***^**^***^***'«s**^********************* 

* * 

* . LOAD EXISTING OFF SPECS« TO ^FORMAT' FILE * 



// LOAD FORSET,?? *FORSET* 
// RUN 



i 
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#•■ MODEL 8/10/12 ASSIGMMEMT SET 

* 

.PAUSE *** ^OOEL 8/10/1.2 *** 



// 

// 
// 
// 
// 
// 



r^A!ME-$CCPFILEfUNIT^R2fPACK"CCPACK 
NAMc-$CCPWORKtUiMlT-"FisPACK-FlFlFlfTRACKS"5«RET4im-»S 



// 
// 
// 
// 



LOAD 

PILE 
Fli£ 

SET ID-F, ACTION-REPLACE, DFLTEXEC-NO 
SYSTEM HIMUPA-18«00K«MINTPBUF-308 9, 

PGMREQL-20»C0HM&MDL-80,PRlMTER»YESfMFCU-YES, 
DFFPACK-PROGRAM 
TERMATTR ATTRID-1, TRAMSLAT-VESt UPCASE-YESi 8LKL-768* 
DATAF0RM-MESSAGE»DFF3270-YES 



// TERMATTR ATTRIO-2* TRANSL AT-VES^UPCASE-YES? BLKL»5i2« 



//■ 
// 
// 
// 
/ 

i 



c 



// 
// 
// 
// 
// 
// 

7/ 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
/ 



DATAF0RM-M£SSAGE,0FF3270-N0 
BSCALIME TYPE-CS»POLLLIST-*00f 01»02« 
BSCATERM TERf>^ID-GQs TYP£-32T?M2f ATTR! D- • 1,2« , 
COMMAND-YES»OFFACT^J-HOLD, 
ADDRCHAR-"*60604040*»P0LLCHAR-*4040^a40* 
BSCATERM TERMIO"01,TYPE-32?7M2,ATTR!D-«1,2% 
COHNAND-YES^OFFACTM-HOLD, 
AD0RCHAR~*6060ClCl*tP0LLCHAR-*404 3ClCl* 
BSCATERM TERMI0-02tTYPE-3286M2*ATTRID-U«, 
COMMAND-NO, 

AOORCHAR-*6060C2C2'^,POLLCHAR-*40^0C2C2* 
■TERMNAME MAHE-TERMGl, TERMIO-00 
TfRMMAME MAME-TERHOZlTERMID-OI 
tliRMNAHE NAME-PRINT l,TERMI0-02 

OISKFILE NANE-F0R^AT*0RG--D,RECL-»8Q,0EVICE~5^^5 
ADO THE FOLLO^IN® TWO CARDS FOR DISK OPTIONS- 
DISKFILE NAME-DFFCAR0S,0RG~C,RECL"96,O€^^ICE-54-45 
DISKFILE NAME-RPGCARDS,0RG~CfRECL-9&»0EVICE-5445 
PRO-AM NAMe-FORHAT,ENDMSG-MO^L&.*^GUAGE-RPSIIf 
■• ■ DFFMTERM-i»0FFN0F--l,0FFSF0T"2569p&M0ATA-NOt 

PACK-PROGRAM 
FR0GRAr4 NAME-FQRSClf ENDMSG-MCLANGUAGE-RPGII s 
FILES-«FORMAT/DG/MQSHR% 

0FFMTERM-2,0FFNDF--8,OFFSFDT-400fP&MOATA-YES, 
PRUF$Z-$ZF0RX„PRUFLMG-64s 
PACK-PROGRAM 
PROGRAM NAME-F0RSC2f £NDMS&-"^0,LAMGUAGE-RPGII, 
FILES-8FQRMAT/DU/N0SHR8 s 
DFFMTERM~2fDFFNDF-3,DFFSFDT-^00, 
PRUF$Z-$ZF0Rl«PRyFLNG-1974, 
PACK-PROGRAM 



(5444) 



*00020 
♦00030 
*00040 

00060 
00070 
00060 
00090 
OOiOO 
OOliO 
00120 
00130 
00140 
00150 
00160 
OGITO 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
003 lu 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
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// PROGRAM NAME-FORSCSsEMDHSG-MO^LANGU&GE-RPGII, 



// 
// 
// 



// 
// 

// 
// 



PRUF$Z~SZF0R2„PRUFLMS-649 
FILES- «FORMAT/DU/NOSHR% 

DFFMT£RM-i«DFFNDF-lfDFFSFDT"256^ 
PACK-PROGRAM 



// PROGRAM NAME-FQRSC^sENOMSG-MOfLANGUAGE-RPGIIf 



FILES-' FQRMAT/DU/NDSHR% 

DFFMTERM-"l^DFFN0F-3,DFFSFDT-^50,PSNDATA"YESs 

PRUF$Z-$ZF0R^tPRUFLMG-64, 

PACK-PROGRAM 



// PROGRAM NAKE-F0RSC5fENDMSG-N0sLAM&UAGE-"RPGII« 

// FILES-^FORf^AT/DG/MOSHRSHFCU-YESs 

// PRINTER-YES9PGHDATA-YES* 

// , OFFMTERM-I«0FFNDF-IsDFFSFDT-»^00, 

// PRUF$Z-$ZF0R3.PRUFLNG-6^9 

// PACK-PROGRAM 

** REPLACE SEQ N0« 00620 WITH ONE OF THE FOLLOWING IF DiSKET 

** OR DISK OUTPUT WILL BE USED FOR OFF SPECIFICATIONS RECORDS- 

** FILES""'F0RMAT/0G/NjaSHRSN374.1-Pf 

** FILES-«FORMAT/DG/MOSHR,DFFCARDS/CA/NOSHR« » 

// PROGRAM NAME-F0RSC6?Ei"^DMSG-M0f LAiNGUAGE-RPGIIt 

// FiLES-^FORMAT/DU/^IOSHR^, 

// PGMDATA-YES? 

// DFFMTERM~ifDFFiM0F-UDFFSFDT-1434, 

// PRUF$Z-$ZF0RC,PRUFLMG-869» 

// PACK-PROGRAM 

// PROGRAM NAME-F0RSC7»ENDMSG-N0f LAMGUAGE-RPGIU 

// FILES-«FORMAT/DG/MOSHR%MFCU-VESf 

// DFFMTERH-l^DFFMDF-ltOFFSFOT-lZSs 

// PRUF$Z-$ZF0RG,PRUFL^IG-256» 

// PACK-PROS-RAM 

** REPLACE SEQ MO. 00780 WITH ONE OF THE FOLLOWING IF DISKET 

** OR DISK OUTPUT WILL BE USED FOR RPG iPEC IFICATI QMS RECOROS- 

^^ FILES-*F0RMAT/DG/N0SHRSN3741-'f 

** FILES-'FORMAT/DG/MOSHRtRPGCARDi/CA/NOSHR« f 

// PROGRAM- NAME-F0RSC8«EN0MSG~M0,LAMGUAGE-RPGIU 

// FILES-«FORMAT/DG/WOSHRS 

// DFFMTERM-l,DFFNDF-l,DFFSFDT-123f 

// PRUF$Z-$ZF0RHtPRUFLMG-2565 

// PACK-PROGRAM 

/* (SLASH ASTERISK) 



003i. f 

0052C 

00530 

00540 

00550 

0056O 

005TQ 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

006"^ 

00680 

00690 

00700 

00710 

00720 

00730 

00T40 

0075a' ■ 

00760 

00770f 

00780^ 

00790 

00800 

00810 

D0320 

00830 

00840 

00850 

008^=-^ 

008. .J 

00880 

00890 

00900 

00910 
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PAUSE 



«** MODEL 15 *** 



^.- , MODEL 15 ASSIGMNENT SET 

// 
// 
// 
// 
// 
// 
// 



SCCPAS ******#***** 



LOAD $CCPAS,R2 **^*=j«*i.*#**# 

FILE i^AME-SCCPF I LEs UNI T"R2f PACK-MI 5CCP 

FILE MAME-$CCPW0RKfUNIT»F].tPACK-FlFlFlfTRACKS-5fRETAIM-S 

RUN 

SET I D~Ff ACT ION-REPLACE fOFLTEXEC-NO 

SYSTEM Mi.MUPA-l4K?MINTPBUF"-B089» 

PGf4REQL»20»COMMAMDL"80^ 
//-s OFFPACK-PROGR&M 
n rERHATTR ATTRID-I t TRANSLAT-YES* UPCASE-YES. 8LKL-T68, 

OATAF3RM-MESSAGE^OFF3270-YES 
TERMATTR ATTRiO-2,TRANSLftT-YES»UPCASE-YESf 8LKL-5i2* 

DATAF0RH-MESSAGE*0FF327Q-N0 
BSCALINE TYP£->CS,POLLLIST--»00,OU02« 
BSCATERM TERMI D-00» TYPE-3277M2, ATTRI D- ' I , 2 ' ^ 

COMMAND-YES f OFF ACT M-HQLD^ 

AOORCHAR~*60&04040*',POLLCHAR-*40404040* 
BSCATER^ IE =iM I D~01fTYPE-3277M2tATTR I C-U, 2' » 

CDMMAMO-YES^OFFACTM-HOLD* 

ADDRCHAR-*6060C].C1*.,P0LLCHAR~*4040C1C1* 
6SCATERM TERMID'-02» TYPE-3286M2 » ATTRI D-' i » » 

COMMAMD-NO, 

AD0RCHAR-*6060C2C2*.,P3LLCHAR-*4040C2C2* 

TERMNAME NAME-TERMOl sTERmD-OO 
lERMNAME MAME--TERM02f TERMID~01 
TERMNAME NAME-PRINTl , TERMID-02 
DISKFILE MAME-FORMAT^ORG-0,RECL-80 

ADO THE F3LL0WING TwO CARDS FOR DISK OPTIONS- 
OlSKFILE NAME-OFFCAROSiOR3"C9RECL-96 
DISKFILE MAME"RPGCARDS«0RG-C,RECL»96 
PROGRAM MAME-FORMAT»ENDMSS~MO? 

0FFMTERH-=I,0FFf^DF-'l,DFFSF0T-256,PSNDATA-i^0, 

PACK-PROGRAH 
PROGRAM NAHE-FORSCl,ENDMSG-MOf 

FILES-'F0RMAT/DG/'^3SHR« , 

DFFMTERM"2tDFFNOF-8«DFFSFDT--400fPGN^OATA-YES9 

PRUFSZ-SIFORXsPRUFLMG-S^* 

PACK-PROGRAM 
PROGRAM NAME-F0RSC2»ENDMSG-M0^ 

FILES-'FORMAT/DU/MOSHR» » 

DFFMTERM-2f DFFNDF-3f DFFSF0T-400f 

PRUFSZ-$2F0Rl,PRUFLNS~1974t 

PACK-PROGRAM 



// 
// 
// 
// 
// 
// 
// 
// 
// 
/ 
'/ 
^/ 
I f 
.// 
// 

ii 
if 

* 

// 
//■ 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



*000k 

*Q003& 

*00040 

00060 
00070 
00080 
00090 
OOIOO 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
0036 
0037. 
00360 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
■ 00460 
00470 
0048 
0049.. 
00500 
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// 

// 
// 
// 
// 

// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 

// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 

«* 

*«: 
*)^ 
**• 
// 
// 
// 
// 
// 



PROGRAM 



PROGRAM 



PROGRAM 



REPLAC 
OR DIS 



PROGRAM 



PROGRAM 



REPLACE 
OR DIS 



PROGRAM 



iMAME-F0RSC3,ENDMSG-N0 
PRUF$Z-$ZF0R2,PRUFLIMS- 

FILES"'FORMAT/OU/MOSHR 
OFFMTERM-l,OFFNDF--i,DF 
PACK~P5.0GR&M 

MAHE-F0RSC4s EMOMSG-MO 
F I LES-^ FORMAT/ DU/MQSHR 
OFFMTERM»i,OFFNOF-3«0F 
PRUF$Z-$ZF0R4-^PRUFLN|3- 
PACK-PROGRAM 

NAME-F0RSC5»£NDMSG-M0 
FILES- ^FORMAT/DG/'^^OSHR 
PRIMTER-YES^PGMD&TA-YE 
0FFMTERM->1,DFFNDF"-1,DF 
PRUFSZ»$ZF0R3,PRUFL.M3- 
PACK-PROGRAM 
E SEQ NO. 00620 WITH 
K OUTPUT WILL 8E USED 
FILES- «FORMAT/DG/^IDSHR 
FILES-' FORMAT/DG/NOSHR 

iNJAME"F0RSC6,ENOMSG-N0 
FiLES-'FORMAT/DU/^iOSHR 
PGMDATA-YES, 
OFFMTERM~.l,DFFNDF--l,0F 
PRUFSZ-SZFORCtPRUFLMG- 
PACK-PROGR&M 

NAME-FORSC?^ E^JDMSG-^O 
FILES-' FORMAT/DG/MOSHR 
DFFMTERM-l^DFFNJDF-l^DF 
PRUF$Z-$ZFQRG,PRUFLiMS- 
PACK-PROGRAM 

SEQ MO. 007.80 WITH 3H 
K OUTPUT WILL BE USED 
■F 1 L'E3 " ' T= ORM AT /'OG / MO S H R 
FILES"' FORM AT/DG/MOSHR 

NAME-FGRSC8, EMDMSS-'^^O 
FILES-«FORMAT/DG/'*IOSHR 
OFFMTERM~l,DFFNDF--ltDF 
PRUF$Z-$ZFORH,PRUFLMS- 
PACK-PROGRAM 
(SLASH ASTERISK} 



9 

1 . 



FSFOT-256, 



FSFDT-450»PGMDATA-YES, 

64f 



'?MFCU2~P« 
S, 

FSFOT-400, 

NE DF THE FOLLOWIMG IF OISKET 
FOR OFF SPECIFICATIOMS RECORDS- 
SM3741-Pt 
.DFFCARDS/CA/NDSHR' , 

FSFDT~1434f 
869, 



%MFCU2-»Pf 
FSFDT-128* 
256, 

E OF THE FOLLOWIMG IF DISKET 
FOR RP3 SPECIFICATIONS RECORDS- 
%N3741"P, 
,RPSCARDS/CA/MOSHRS 



FSF0T-128f 
256» 



O0:ii.o 

00^.?: 

005.-5Q / 

005AU \ 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

006A0 

0Q\ J 

00710 

00720 

00730 

00740 

00750 

Q076C 

00770. 

00780" 

00790 

00800 I 

00810 

00820 

D0830 

00840 

00850 

00860 

00870 

00880 

ooO 

00900 
00910 
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APPENDIX C 
(DEVICE MODIFICATIONS) 



:J£*4!******«»!P««************************«******«* ************* **************** 

* * 

* OISK^S ~ DIS< * 

* * 

* IF YOU WILL BE [)SIHG 5444 DISK OR SIMULATION AREA ON A 3340 PACK- * 

* REPLACE THE PROVIDED SOURCE CARDS WITH THE FDLLONING BEFORE * 

* COMPILING THE PROGRAMS^ * 
^ * 



***;«!*******«*******************************************************«******* 



0011 

001 i 

0010 
0011 

OQll 

0014 

0014 

0014 

0012 
00 IZ 
0012 
0014 
0012 



FFORMAT 


OC 


F 


80 


80R 


FFORMIATWKOC 






80R 


FFORMAT 


IP 




800 


80 


FFORMIATWKUC 




80 


80R 


FFORMAT 


UC 


F 


80 


80R 


FFORVIAT 


IC 


F 


80 


80R 


FFORMAT 


UC 


F 


80 


80R 


FFORMAT 


UC 


F 


80 


80R 


FFORMAT 


UC 


F 


80 


80R 


FFORMAT 


IC 


F 


80 


80R 


FFORMAT 


UC 


F 


80 


80R 


FFORMAT 


IC 


■f 


BO 


■8T)'l 


FFORMAT 


IC 


F 


80 


80R 



DISK 
DISK 

DISK 

DISK 

DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
DISK 
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FORLQD 
FORORi 

F0R0R2 

F0R0R2 

FORS"^ 
FORSCl 

F0RSC2 

F0RSC3 

FDRSr'^ 

F0RSC5 

F0RSC6 

F0RSC7 

F0RSC8 



* 

MFCU - DISK OR DISK45 



* 
* 



TO USE DISK aUTPUT FOR THE DFF SPECI F IC&TI 0'^ RECORDS- 
REPLACE THE PROVIDED SOURCE CARDS WITH THE FOLLOWING BEFORE 
COMPILING THE PROGRAMS^ T3 USE DISK FOR RPG SPECIFICATIONS - 
SELECT THE 2ND VERSION OF F0RSC7 {F0RXX7I RATHER THAN THE 
ORIGINAL. 

FOR 544^ DISK TYPE - USE DEVICE NA«*E 'DISK ' FOR THE 
FOLLOWING- F0RSC5 SEQ NO. 0016 

FORPRT SEQ NO, 0011 

F0RSC7 SEQ N0» 0015 



* 
* 

* 
* 



*«*««♦:{. ,8s**^:.S**^*****«****«****^4:*:«,:^**4.:^=j,*^,:^.^;<,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 



0015. F*FFCAK0S0 F 96 

0016 FDFFCAROSO F 96 

3C8i C KEY 

3090 C TEST 



96 

96 



2 
2 

ADD 2 
COMP «/*• 



0118 ODFFCARDSEADO 83 QS'ABb 

0119 
120 
12.1 

J123 0*FFCARDSE 83N96 

0124 OOFFCARDSEADD 83N96 



SCRNID 



MFCU2 
DISK^^5 

KEY 



86 



23 •// COPY FROM-READ£R,LIB' 
44 'RARY-S^RETAIN-PtNAME-' 

50 



F0RSC5 
F3RSC5 

F0RSC5 

F0RSC5 

F0RSC5 
F0RSC5 
F0RSC5 
F0RSC5 
F0RSC5 
F0RSC5 



0010 F*FFCARDSIP F 96 96 

0011 FDFFCAROSIP F 96 96 



MFCUi 
DISK45 



FORPRT 

FORPRT 






MFCJ - OISKET 



* IF YOU WILL BE USING 3741 RATHER THAN MFCU FDR THE DFF £ RPG * 
«* SPECIFICATIONS — REPLACE THE FOLLOWING SOURCE CARDS BEFORE « 

* COMPILING THE PROGRAMS. * 



*4t*********3i6*«*******^***«**«*:^4c*;^*:^^*^:jj^*^jj:*^ijs;^^^^^:4::jc:^^^^ 



*:***:*«4::^**:!}:^*:^**!^ 



0015 FDFFCAkOSD F 96 96 
.;15 FRPGCARDSD 96 96 

OGi FuFFCakD^IH F 9b 9b 



DISKET 

DISKET 

OISKET 
C-2 



F0RSC5 
F3RSC7 

FORPRT 



****♦*♦*«***« ***:*;*)^**** *♦**=!'*******«****«*«***♦ **************************** 



* 



* 



* 3275/3284 * 

* « 

* IF YOU WILL SE USING A 3275/3284- CONFIGURATION RATHER THAN * 

* A 328X PRINTER ATTACHeO DIRECTLY OR THRU A 3271^ MAKE THE ♦ 
■* FOLLOWING CHANGES TO THE ORIGINAL SOURCE PROGRAMS BEFORE * 

* COMPILING. **328X PRINTER IS OPTIONAL S NOT REQUIRED** * 

* « 

0094 4 ' HG8« FORSCI 

0095 ■ 8 '0024* FORSCi 

0096 PL, 5 14 FORSCI 

0097 C 15 ' : ' FORSCI 

0098 C , , 21 'PROGIO' FORSCI 

0099 G 24 «7 « " FORSAL 
OICO C* FOR. I 
OiCl C* FORSCI 
0102 C* FORSCI 



0271 C . 24 «:PR0GI07 ' FORSCi 

2 72 C* LR 01 F0RSC2 

02 73 U* 4 » AI « FOR^ "' 

0274 0* ■ , 3 « 0001' FOR. 

0275 a* . 14 «PRINTi« FORSC.'I 

0276 0*- D LR 01 F0RSC2 

0277 0* 4 'D3« FORSC? 

0278 G* 8 '0021' FORSC:! 

0279 C» ,14 'PRINTI* F0RSC2 

0280 G* PLt5 20 F0RSC2 

0281 0* 21 '#• F0RSC2 
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-mK;-.. 



International Business Machines Corporation 

General Systems Division 
5775D Glenridge Drive N. E. 
P.O. Box 2150 
Atlanta, Georgia 30301 
(U.S.A. only) 



r 



o 



So 



^ 






C 
CO 

> 









SB30-0766-1 



READER'S COMMENT FORM 
SB30-0766»00 5798-NJK 



Please comment on the usefulness and readabiiity of this pubiication. suggest additions and 
deietions, and list spcciOc errors and omissions (give page numbers). All comments and suggestions 
become the property of ibm. If you wish a reply, be sure to include your name and address. 



COMMINTS 



^^ . fold 



fold 



fold 



• Thank you for your cooperaiion. No postage necessary if mailed in the U.S.A. 
FOLD ON TV O LINES, STAPLE AND .MAIL. 



Yoyr eomm®nts, please . . . 

This manual h part of a library that serves as a refe -ence source for systems analysts, 
programmers, and operators of IBM systems. Youi comments on the other side of this 
form wiU be carefully reviewed by the persons responsible for writing and publishing 
this material. All comments and suggestions become the property of IBM. 
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